Select Code to Download

use warnings;
use strict;
...
        }
    }
}

use warnings;
use strict;
...
     return if $_ eq '.' or $_ eq '..';
    print $_,$/;
   }