use strict;
use warnings;
my $file;
chomp ($file = <STDIN>);


open (MYFILE,"<$file") or die $!;

while (><MYFILE>) {
	if(/ALARM:/) {
print "$.: $_";
	}
}

close MYFILE;