C:\Temp>more t
use File::Spec;

die File::Spec->dirname( File::Spec->rel2abs(__FILE__) );

sub File::Spec::dirname {
    my $self = shift;
    return $self->catpath( ( $self->splitpath(shift) )[ 0, 1 ] );
}
__END__

C:\Temp>perl t
C:\Temp\ at t line 3.

C:\Temp>move t f\a\d\e\a\w\a\

C:\Temp>perl f\a\d\e\a\w\a\t
C:\Temp\f\a\d\e\a\w\a\ at f\a\d\e\a\w\a\t line 3.

C:\Temp>
[download]