my $arg = "hello";

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

find(\&wanted, $source);