windows - How to move back one level from the current working directory in perl -

i trying move 1 level current working directory not getting success doing .

use strict; use warnings; use cwd qw(); $path = cwd::cwd(); print "debug : $path\n";

from above code can current working directory need go 1 level down.

exp : current working directory = 'c:/abc/tmp/folder' needed directory = 'c:/abc/tmp'

you don't need module change current working directory. just

chdir '..';

will need.

chdir built-in operator, nothing needs installed.

And