#! /usr/bin/perl
open(FILE,">/tmp/usbtest") or die;
foreach my $key( keys %ENV ){
    print FILE "$key: $ENV{$key}", "\n";
}
close(FILE);
