Select Code to Download

my $source = “/mnt/usbdisk”;

...
    my $msg = $source;
    ...
{

sub myfind {
   my ($code, @args) = @_;
   find(sub { $code->(@args)})
}

myfind \&Recursive, $source;