my $arg = "hello";
find(sub {
    my $diskpathfile = $File::Find::name;
    print "$arg: $diskpathfile\n";
}, $source);