sub run_local
{
  local %ENV;
  %ENV = qw/foo bar baz etc/;
  open my $script, "perl foo.pl |" or die $!;
  print $script $CONTENT;
  my @return = <$script>;
  close $script;
  return @return;
}