Help for this page
#!/usr/bin/perl -w use strict; ... close $file or die "Can't close $filename: $!\n"; }