# warn.pm
package CORE::GLOBAL;

use strict;
use warnings;
use subs 'warn';

sub warn {
    print "WARN '@_'!\n";
    CORE::warn @_;
     }; # die:
    1;