VAR1="FOO"
VAR2="FEE"
VAR3="FUM"
export VAR1
export VAR2
export VAR3


##</code><code>##

#!/usr/bin/perl -w 
use strict;
use Data::Dumper;

my %envstuff=source_in("source.sh");

print Dumper(\%envstuff);


sub source_in {
    my $fname=shift;
    my @vars=();
    open RIPIT,sprintf("(. $fname ; env) | ",$fname) or die $fname . $!;
 
    while(my $line=<RIPIT>){
        chomp $line;
        my ($key,$val)=split("=",$line);
        push @vars,$key,$val;
    }
    close RIPIT;

    return @vars;
}


##</code><code>##

$VAR1 = {
          'VAR1' => 'FOO',
          'VAR2' => 'FEE',
          'VAR3' => 'FUM',