my ($package, $file, $line) = caller();

##</code><code>##

File::Spec->catfile("C:", "perl", "MyTest.pm")

##</code><code>##

C:\perl\MyTest.pm