#1    do {
#2    $firstline=<FILE>;
#3    ($name, $value)=split(/=/, $firstline);
#4    $value =~ s/^\s+//;
#5    $value =~ s/\s+$//g;
#6    $value =~ s/\n//g;
#7    print "$name\=$value\n";
#8    $data{$name}=$value;
#9    } while    $.<5;

##</code><code>##

#1    if ($data{'SONUMBER'} eq "" || $data{'SALESPERSON'} eq "") {
#2        $data{'SONUMBER'}="No S.O. attached";
#3        $data{'SALESPERSON'}="No salesperson assigned";
#4        &sendemailspecial;
#5    } else{
#6        &sendmailnormal;
#7    }    
#8
#9    unlink $currentfile;