sub profile
{
    my $self = shift;
    my $profile = shift;
    foreach (`. $profile; env`)
    {
        chomp;
        next unless /=/;
        my ($var, $value) = split(/=/, $_);
        $ENV{$var} = $value;
    }
}