b3n@sdf:~> cat test.pl
#!/usr/bin/perl

warn "foo";

warn "bar\n";
b3n@sdf:~> perl test.pl
foo at test.pl line 3.
bar