sub buildPath
{
    my $path = shift;

    print "buildPath : BEFORE canonpath: $path :\n" ; 

    $path = File::Spec->canonpath($path);
    print  "buildPath : After canonpath: $path :\n" ; 
    ...