use File::Find;

my $source = "/mnt/usbdisk";

sub make_wanted {
    my $arg = shift;
    return sub {
        my $diskpathfile = $File::Find::name;
        print "$arg: $diskpathfile\n";
    }
}

find (make_wanted("hello"), $source);