get the parent directory of a file or directory

use strict;
use File::Basename;

use Cwd;

my $cwd=cwd();
print "   cwd $cwd\n";

my $parent=dirname($cwd);
print "parent $parent\n";

   $parent=dirname($parent);
print "parent $parent\n";

   $parent=dirname($parent);
print "parent $parent\n";

   $parent=dirname($parent);
print "parent $parent\n";

   $parent=dirname($parent);
print "parent $parent\n";

   $parent=dirname($parent);
print "parent $parent\n";

Output

   cwd C:/my1/egtry/blog/perl/file
parent C:/my1/egtry/blog/perl
parent C:/my1/egtry/blog
parent C:/my1/egtry
parent C:/my1
parent C:/
parent C:/