-my $hostname = $ENV{HOST} || 'localhost';
-my $username = $ENV{USERNAME};
-my $password = $ENV{PASSWORD};
+my %opts = (
+ usage => sub { podusage() } ,
+ hostname => $ENV{HOST} || 'localhost',
+ username => $ENV{USERNAME} ? $ENV{USERNAME} : $ENV{USER},
+ password => $ENV{PASSWORD},
+ command => 'ls /tmp',
+);
+
+GetOptions (
+ \%opts,
+ 'usage',
+ 'host=s',
+ 'host=s',
+ 'username=s',
+ 'password=s',
+ 'command=s'
+);
+
+if (@ARGV) {
+ $opts{command} = join ' ', @ARGV;
+} # if
+
+print "Attempting to connect to $opts{username}\@$opts{hostname} to execute \"$opts{command}\"\n";