use File::Spec;
print File::Spec->canonpath('C:/perl/Mytest.pm');
# Prints: C:\perl\Mytest.pm