Select Code to Download

 
while($count < 2) {
    print $count;
...
                                ->in( $directory );
    $count++;
}

my $base_dir = 'C:\Test\Calls\';
my @directories = $base_dir . $_ . '\' for qw /History Archive/;
my @files;
for my $dir (@directories) {
     push @files, $_ for glob ($curr_dir . "*.wma"), glob ($curr_dir .
+ "*.wmv");
}

my $base_dir = 'C:\Test\Calls\';
my @directories = $base_dir . $_ . '\' for qw /History Archive/;
...
          push @files, $_ for glob ($curr_dir . $ext);
     }
}