#!/usr/bin/perl

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

#my $folder = shift @ARGV;
#exit unless ($folder);
my $base_dir = 'C:\\testdir\\';

chdir $base_dir;
my @existing = (glob<*>);

print Dumper \@existing;