#!/usr/local/bin/perl5 -w
#  Simple non CGI Hello World Example
#
print "what is your name?"; # Prompt User
$hero=<STDIN>; # Read Name Input
chomp ($hero); # Remove Trailing Newline
#
$today =`date`;
chomp($today); # Today's date captured from UNIX
#
print "Hello World to you my friend $hero on a great $today\n";
exit; # End Program
