$ perl mycode.pl
Undefined subroutine &main::basename called at mycode.pl line 3.