my $source = “/mnt/usbdisk”;

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

##</code><code>##

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

##</code><code>##

myfind \&Recursive, $source;