exit $already_there;
 ### call email perl ####################
   unless ( -z "$Temp" ) {
    print "File has something in it\n";
    exec "c://testscripts//email.pl" or die "problem with email.pl";

 }