Help for this page
my ($package, $file, $line) = caller();
File::Spec->catfile("C:", "perl", "MyTest.pm")
C:\perl\MyTest.pm