Select Code to Download

sub get_dirlist {
  my $dir_to_scan = shift;
...

  return @dirlist;
}

my @dirlist;

...
  find( \&wanted, $dir_to_scan );
  return @dirlist;
}