Select Code to Download

return wantarray ? @file : join '', @file;

#!/usr/bin/perl
sub io
...
}
$string = "YO!";
io('write','file.txt',\$string);

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.