http://qs1969.pair.com?node_id=358283

Copying variables the hacktastic way:
#!/usr/bin/perl -l sub foo { open "/foo"; print 0+$!, " $!"; print 0+$_[0], " $_[0]"; } # not copied mkdir "/foo"; foo $!; print "---"; # copied with string interpolation mkdir "/foo"; foo "$!"; print "---"; # copied with temp scalar mkdir "/foo"; foo ${ \(my $t = $!) }; print "---"; # copied with array deref mkdir "/foo"; foo @{[$!]};

And the output:

2 No such file or directory 2 No such file or directory --- 2 No such file or directory 0 Permission denied --- 2 No such file or directory 13 Permission denied --- 2 No such file or directory 13 Permission denied