Select Code to Download

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

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

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