use strict;
use warnings;
use Cwd;
my $dir = getcwd;
print "Startverzeichnis ist: $dir", "\n";