use strict;
use warnings;
use 5.010;

my $path = '\\\\DEINPCNAME\\C$\\'; # bitte hier den Namen des PC eintragen

opendir my $dh, $path or die; 
my @arr = readdir($dh);
say for @arr;