my $spaces = ' ' x ( 30 - length($key) );
print FH "$key $spaces $ENV{$key}\n";