Catfile function not working on windows 7 machine

[Sandip Karale]

Hello ,

I'm new to perl.

I am on windows 7 64 bit machine. with Strawberry Perl (64-bit) 5.14.2.1.

*My Code:*

use File::Spec::Functions;
my $f="foo.txt";
my $d="\\\\\\\\mach\\\\dir";

print "$f \n";
print "$d \n";
print catfile($d,$f);


*Output:*
*
*
foo.txt
\\\\mach\\dir
\mach\dir\foo.txt

*My Problem:*
*
*
After concatenating with UNC path and file, the concatenated path is wrong!
the expected path is \\mach\dir\foo.txt
Please help me out if I'm missing something.

Sincerely,
Sandip