perl t.pl
Undefined subroutine &main::sub { print "one" } called at t.pl line 10.