Hello supriyoch_2008,

Try something like that.

#!/usr/bin/perl
use strict;
use File::Basename;
use File::Path qw/make_path/;

my $file = "/home/tinyos/Monks/SubFolder/foo.txt";

my $dir = dirname($file);

make_path($dir);

open my $fh, '>', $file
    or die "Ouch: $!\n";

print $fh $dir . "\n";

close $fh
    or die "Can not close file: $!\n";

__END__

$ perl dir.pl
~/Monks$ ll
total 44
drwxr-xr-x  3 tinyos tinyos 4096 Apr 22 11:43 ./
drwxr-xr-x 31 tinyos tinyos 4096 Apr 22 10:34 ../
-rw-r--r--  1 tinyos tinyos  299 Apr 22 11:43 dir.pl
-rw-r--r--  1 tinyos tinyos  214 Apr 22 11:39 dir.pl~
-rw-r--r--  1 tinyos tinyos 2215 Apr 22 01:12 excel.pl
-rw-r--r--  1 tinyos tinyos 2182 Apr 20 00:53 excel.pl~
-rw-r--r--  1 tinyos tinyos 5632 Apr 22 01:12 perl.xls
-rw-r--r--  1 tinyos tinyos 6656 Apr 19 20:43 Report.xls
drwxr-xr-x  2 tinyos tinyos 4096 Apr 22 11:42 SubFolder/
~/Monks$ cat SubFolder/foo.txt
/home/tinyos/Monks/SubFolder
[download]

Hope this helps.