use strictures;
use Path::Class "file";
use File::Spec;

my $script = file( File::Spec->rel2abs(__FILE__) );

print $script, $/;

printf("HURR -> %s\nDERR -> %s\nDERP -> %s\n",
       $script->basename,
       $script->parent,
       $script->as_foreign("Win32"),
      );

__END__
/Users/moo/depot/tmp/pm-972505.pl
HURR -> pm-972505.pl
DERR -> /Users/moo/depot/tmp
DERP -> \Users\moo\depot\tmp\pm-972505.pl