for my $dir ( @ARGV ) {
    find( sub { ... }, $dir );
}