Select Code to Download

#!/usr/bin/perl

...

    print $suffix, "\n";
}

my @valid_extensions = qw/ .tar.gz .html .zip /;

foreach my $file ( @files ){
...

    print $suffix, "\n";
}