C:\Steve\Dev\PerlMonks\P-2013-10-30@1354-BaseDir>basedir.pl
Global symbol "$lastdirectoryname" requires explicit package name at 
  C:\Steve\Dev\PerlMonks\P-2013-10-30@1354-BaseDir\basedir.pl line 22.
Execution of C:\Steve\Dev\PerlMonks\P-2013-10-30@1354-BaseDir\basedir.pl aborted due to compilation errors.