$ perl -l
$j = $_ for (1 ..3);
($j) ? print $j : warn "no warnings - missing";
__END__
3