#!/usr/bin/perl
use OWNet ;

my $owserver=OWNet->new("localhost:4304");
print   " --> \$owserver=$owserver. \n";

if (length ($owserver // '')) {
	print "Connected\n";
} else {
	print "Not connected!\n";
}

if (defined($owserver) && length $owserver > 0 ) {
 	print "\$owserver defined & filled\n";
} 

if (!defined($owserver->{ADDR})) {
 	print "\$owserver->{ADDR} is undefined\n";
}

if (defined($owserver)) {
 	print "\$owserver is defined\n";
}

if (!defined($owserver)) {
 	print "\$owserver is undefined\n";
}

my $owserver=OWNet->new("localhost:4304") || die "Second form: Not Connected!";
print "Second form: connected\n";

my $dir_list = $owserver->dir('/');
print "$dir_list\n";