if(-r $tempfile) {
    open (TMPFILE, "$tempfile") or die "Can't open $tempfile: $!"; 
    (@tmpfile) = <TMPFILE>;
    close TMPFILE;
}else {
    $nofile = "1";
}