1: #!/usr/bin/perl
   2: $name = $ARGV[0];
   3: unless ($name =~ /.+/) {
   4:         die "Bad programmer, no donut!\n";
   5: }
   6: print "\$\+, the artist formerly known as /($name)/\n";
   7: 
   8: #Created whilst bored on ye olde road trip