use strict; # line 1 use warnings; # line 2 # line 3 my $value1 = 'foo'; # line 4 my $value2 = undef; # line 5 # line 6 if ( $value1 eq 'bar' ) { # line 7 print 'value1 is bar'; # line 8 # line 9 } elsif ( $value2 eq 'bar' ) { # line 10 print 'value2 is bar'; # line 11 # line 12 } # line 13