Select Code to Download

opendir (DIR, "$memberinfo");
@file = grep { /.infotmp/ } readdir(DIR);
close (DIR);
$new_files = push(@file);

$new_files = @{[<$memberinfo/*\.infotmp*>]};