$ perl warns.pl
foo at warns.pl line 5.
bar
$