#!/usr/local/bin/perl -w
use strict;

my $name  = shift;

unless ( $name ) {
  print "Enter your name:";
  $name = <STDIN>;
}

my $time  = localtime;
my $epoch = time;

print "Hello $name\n\n";
print "The time is now $time\n";
print "That's $epoch seconds since Jan 1, 1970, if you are interested...\n";
print "Below are the current contents of this directory:\n";
system "ls";

