use strict;

my @dirA;
@dirA = `dir \\\\rancaajelloxp\\c\$`;
print @dirA;

print "\n\n";

my @dirB;
`dir \\\\rancaajelloxp\\c\$ > dir.txt`;
open DIRB, 'dir.txt';
for (<DIRB>){
	push @dirB, $_;
            }
close DIRB;
print @dirB;