Select Code to Download

next if $entry eq '.';
next if $entry eq '..';

#!/usr/bin/perl -w

use strict;
...

close (Output)
closedir(DIR);