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