#!/usr/bin/perl -w

$_ = undef;
if ( 1 == 2 ) {  # this is line 4
  print "This cannot happen\n";
}
elsif ( $_ < 3 ) {  # the problem is at line 7
  print "This works okay (but throws a warning)\n";
}