#!/usr/bin/perl -w
my $x;
undef $x;

if (0) {  # LINE 5
  print 'huh?';
}
elsif ($x == 0) {
  print 'hmmm';
}

## output ##

Use of uninitialized value in numeric eq (==) at - line 5.
hmmm