Select Code to Download

use warnings;
use strict;
...
my $dh, $dir = "/home/msnyder/bin/etc_copy/";
my $dh;
opendir($dh, $dir) or die "Unable to open directory $dir: $!.";

use warnings;
use strict;
...

opendir(my $dh, $dir) or die "Unable to open directory $dir: $!.";