#! /usr/local/bin/perl

my %new_env = @ARGV;

open OUT, '> newvar.sh' or die "cannot open newvar.sh for output: $!\n";
print OUT "#! /bin/sh\n";
print OUT "export $_=$new_env{$_}\n" for keys %new_env;
close OUT;