#!/usr/bin/perl

use warnings;
use strict;
use File::Basename;

my $string = "c:\\windows\\desktop\\datei.txt";

print "dirname  is [", dirname  ($string), "]\n";
print "basename is [", basename ($string), "]\n";