my $dir = '.'
my @list = glob($dir . '/*'); # <- amended per merlyn's response