unless ($path =~ /^\//) {
        $path = catdir(getcwd,$path);
    }