or download this
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.