#!/usr/bin/perl

use strict;
use warnings;
use Cwd;
use FindBin qw($Bin);

print "Aktuelles Arbeitsverzeichnis: ".getcwd()."\n";
print "Vollständiger Scriptpfad: $Bin \n";