open(FILE, $file) or die "$file could not be opened because $!\n";
@slurp = <FILE>;
close(FILE);
pop(@slurp) if $slurp[-1] =~ /^\s*$/;
open(FILE, "> $file") or die "$file could not be opened because $!\n";
print FILE @slurp;
close(FILE);