#!/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;
}