my $who = $_[0];
my $grant = 0;

print "Nick is '$who'\n";
print "Called from ", join( ", ", caller()), ,"\n\n";