$ cat >foo.pl
#!/usr/bin/perl
  $ENV{'FOO'} = 'bar';
  system './foo.sh';
$ perl foo.sh