@ENV{qw/ one two three /} = qw( foo bar baz );
exec "perl somescript.pl" if fork();

##</code><code>##

{
  package RandomPkgName;
  do "somescript.pl";
}