Select Code to Download

# warn.pm
package CORE::GLOBAL;
...
    CORE::warn @_;
     }; # die:
    1;

# warn.pl
#!/usr/bin/perl
...
use warn;

warn "second warn";

first warn at warn.pl line 6.
WARN 'second warn'!
second warn at warn.pm line 9.