#...
print "Tell me your name.\n" # Implied "print <STDOUT> ..."
chomp(my $name = <STDIN>);
unless ($name) {
   print STDERR "User did not provide a name...\n";
}
#...

##</code><code>##

$ ps auxw | grep perl | awk ' {print $2} ' | mail -s "Perl PIDs" kgale

##</code><code>##

$ man `basename $SHELL`