in reply to How to get the Directory Path

Check out File::Basename : 
use File::Basename;
my $filename = 'c:/Programfile/Perl/test/temp.txt';
my $dirname = dirname($filename);

[download]

In Section Seekers of Perl Wisdom