#!/usr/bin/perl -w
use strict;

_undef_subroutine();
warn "Got here\n";

##</code><code>##

Undefined subroutine &main::_undef_subroutine called at C:\temp\undef.pl line 4.