use File::Spec ();
my $path = 'c:/Programfile/Perl/test/temp.txt';
my ($volume, $directories, $file) = File::Spec->splitpath($path);
my $dir = File::Spec->catpath($volume, $directories, '');
# Optional: $dir = File::Spec->canonpath($dir);
print("$dir\n");