sub s{print $ARGV[1];} s()('japh');$,=$_; print "phubuh: ",$@; print "\n";