open(TEMPFILE,">$tempfile") || die("Can't open $tempfile: $!");