#!perl.exe

use CGI qw(param);
use strict;
use warnings;
use File::Find;

my $dir;
my @files;
my $files;
my @arr;
my $filesize;
my $mb;

use Win32API::File qw(:ALL);

my $qs_srv_adr = "XXXX\\YYYY";
my $pwd        = "xxxx";
my $user       = "yyyy";

my $netuse = 'net use y: \\\\' . $qs_srv_adr . ' ' . $pwd . ' /user:' . $user . '';
system($netuse);

my @dir_entries;
my $start_dir="y:/XXXXX";

find(\&find_parm, $start_dir);

sub find_parm {
   my $akt_file = $File::Find::name; 
  	 
   push @dir_entries, $akt_file;
 
};