open(DATA,"<$tempfile") or die $!; [...] open(DATA,">$tempfile") or die $!; [...] close DATA or die $!;