Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    open my $OUF, '>', $t.'_'.$u or die;
    close $OUF;
}

#!/usr/bin/perl -w
use strict;
...

print "Files: $cnt, Groups: ", scalar(keys %filegroups), "\n";