Select Code to Download

my $dirname= '/some/directory/with/files';
my $input= '2013-09-04';
...
my @found= grep /^\Q$input\E/, readdir $dh;

...

use File::Glob qw( bsd_glob );
my @found= bsd_glob("$input*");