#!/usr/bin/perl
use Safe;
use IO::File;

our @args;

my $code =<<'END';
    my @args = pass_options();
    return "Arguments: @args\n";
END
my $compartment = Safe->new;
sub pass_options { @args };
$compartment->share('&pass_options');
$safe = sub { local @args = @_; $compartment->reval($code) || die $@};
print $safe->(1, 2, 3);
__END__
Arguments: 123