use strict;
use warnings;
use Data::Dumper;

my $path = 'C:\\junk\\*';
my @angle_files1 = < $path >;
my @glob_files1 = glob $path;

my $unc = '\\\\machine_name\\junk\\*';
my @angle_files2 = < $unc >;
my @glob_files2 = glob $unc;


print Dumper $path, @angle_files1, @glob_files1;
print Dumper $unc, @angle_files2, @glob_files2;

print "\n\nDone\n";