open(FILE, $filein) or die "Couldn't open file $filein : $!\n"; 

close (FILE) or die "Couldn't close file : $!\n";


open (NEW, ">$filein") or die "Couldn't open $filein : $!\n";

close (NEW) or die "Couldn't close file: $!\n";