Select Code to Download

#1    do {
#2    $firstline=<FILE>;
...
#7    print "$name\=$value\n";
#8    $data{$name}=$value;
#9    } while    $.<5;

#1    if ($data{'SONUMBER'} eq "" || $data{'SALESPERSON'} eq "") {
#2        $data{'SONUMBER'}="No S.O. attached";
...
#8
#9    unlink $currentfile;