Even if you know there's only one .txt file in the directory, you still need to call glob in an array context

my @txt = glob("$dir/*.txt");
[download]

... or a loop

while ( defined(my $txt = glob("$dir/*.txt")) ) {
}
[download]

When you call glob in a scalar context, it returns the file the first time, then returns nothing the next time to let you know there are no more files.