use strict;
use warnings;

my $param = shift;
eval $param;
die $@ if $@;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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