use subs qw( warn);
sub warn { die @_}

warn "This is a warning";

print "NOT REACHED\n";