~/perl/monks$ cat foo.txt
sub{"fish $_[0]"};