use FindBin qw/$Bin/;

print $Bin;

    use FileHandle;

    my $fh = new FileHandle;
    my $file = "test.datei";
    if ($fh->open("< $file")) {
        print $fh->getline();
        $fh->close();
    }else{
        # hier kommst du hin, wenn die Datei nicht geöffnet werden konnte.
        # normalerweise steht dann sowas wie die "cannot open file: " . $!; hier
    }

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