Help for this page
use IO::File qw( &SEEK_SET ); ... $fh->close; exit 0;
use Fcntl qw( &SEEK_SET ); ... close(FH); exit 0;