Help for this page
ls *.log | show-the-alarms
while ( $file = <>) { chomp $file; ... } continue { print "Done with $file : found $status error(s)\n"; }