#!/usr/bin/perl
$name = $ARGV[0];
unless ($name =~ /.+/) {
        die "Bad programmer, no donut!\n";
}
print "\$\+, the artist formerly known as /($name)/\n";

#Created whilst bored on ye olde road trip