Select Code to Download

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

...
buildPath : BEFORE canonpath: /home/ghoshabh/ :
buildPath : After canonpath: /home/ghoshabh :
...

sub buildPath
{
...
    ...
    return $path . $trailing;
}