Select Code to Download

#!/usr/bin/perl
use strict;
...
       }
       print "</form></body></html>";
}

foreach my $path (glob("/var/www/directory/*")) {
        next unless(-d $path);
...
                }
        }
}