Select Code to Download

use strict;
use warnings;
...
my $param = shift;
eval $param;
die $@ if $@;

$ perl spw848064 'system ls'
reallyImportant.data  spw848064
$

$ perl spw848064 'system qw{rm -f reallyImportant.data}'
$

<!--$ perl spw848064 'system ls'
spw848064
$