- or download this
$ perl -E '$x = "txt"; sub ref {return $x . "r";}; say &ref($x);'
txtr
$ perl -E '$x = "txt"; sub ref {return $x . "r";}; say ref($x);'
$
- or download this
$ perl -wE '$x = "txt"; sub ref {return $x . "r";}; say &ref($x);'
...
at -e line 1.
$
- or download this
$ perl -wE 'sub say {print "txt\n";}; &say("hello");'
txt
$ perl -wE 'sub say {print "txt\n";}; say("hello");'
hello