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
    }