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