Select Code to Download

#!/usr/bin/perl
use Safe;
...
my $compartment = Safe->new;
$safe = sub { $compartment->reval($code) || die $@};
print $safe->();