Select Code to Download

Bareword "SEEK_END" not allowed while "strict subs"

#!/usr/bin/perl

...
print FH "This is line-2."\n";

close(FH) or die "Could not write '".$file."' - $!\n";