Help for this page
#!/usr/bin/perl ... } close($fh);
#!/usr/bin/perl ... else { print "nothing to collect\n"; }