Select Code to Download

#!/usr/bin/env perl
use strict;
...
warn "foo";
warn "bar\n";

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