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