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