#!/usr/bin/perl -w
#-----------------------------------------------------------------------------
use strict;

use Win32;
use Win32::NetResource;

my $share = "\\\\server\\pfad";
my $datei = "Dateiname.txt";

my $password    = 'geheim';

# der aktuell angemeldete Benutzer:
my $user    = Win32::DomainName() . "\\" . Win32::LoginName();

# nicht der aktuell angemeldete, sondern ein anderer Benutzer:
# my $user  = "domäne\\benutzer";

my $Connection  = 0; # 1 - persistent oder 0 - non-persistent

my $NetResource = {
    'RemoteName'    => $share,
};

my $result = Win32::NetResource::AddConnection($NetResource, $password, $user, $Connection);

if($result) {
    if(open(my $fh, "<", $share . "\\" . $datei)) {
        my @lines = <$fh>;
        close($fh);
        print @lines;
    }
    else {
        print "Huch, kann '$datei' nicht öffnen\n";
    }
}
else {
    my $ErrorCode = 0;
    Win32::NetResource::GetError($ErrorCode);
    if($ErrorCode) {
        $^E = $ErrorCode;
        print "Fehler: ($ErrorCode) $^E\n";
    }
}