export env args

env-export

#!/usr/bin/env perl
use strict;
use warnings;

my $dir = $ARGV[0] || 'env';
mkdir $dir unless -d $dir;

my @data = `env`;
chdir $dir;
for my $entry (@data) {
    chomp $entry;
    my ($name, $val) = split('=', $entry, 2);
    open my $fh, '>', $name or die $!;
    print $fh $val;
    close $fh;
}