You said:

my $dir = '.'
my @list = glob($dir);
[download]

But that's not going to work. Glob wants a glob pattern. As ".", there's not much of a pattern there. See some of the other answers in this thread.