my $code =<<'END';
sub {
    my $a = '';
    my $f = IO::File->new('/etc/passwd');
    while (my $l = $f->getline) { $a .= $l }
    return $a;
}
END
my $compartment = Safe->new(':default');
$safe = $compartment->reval($code);
print $safe->();