use File::Basename;
my $file = '/homes/reneeb/test.txt';
my $dirname = dirname($file);
print $dirname,"\n";