sub do_this() {
open FILE, "> $filename" or die "ERROR WRITTING FILE: $filename\nSystem reported $!";


print FILE "\n"; 
foreach (sort keys(%stuff1) ) { print FILE "$stuff1{$_} | ";}
print FILE "\n"; 
foreach (sort keys(%stuff2) ) { print FILE "$stuff2{$_} | ";}


close FILE;
system "start /b $filename";
}