You say that using a glob or Find::File is simpler. I object this, as the code with readmore is simple enough:

{
opendir my $dir, "." or die;
@l= grep /\.tbz\z/, readdir $dir;
}; 
print $_, $/ for @l;
[download]