my $file = shift @ARGV;

##</code><code>##

my $last;
while (<MYFILE>) {
   if(/ALARM:/) {
      print $. - 1, ": $last";
      print "$.: $_";
   }
   $last = $_;
}