diff --git a/autoscan.pl b/autoscan.pl
index 3285236..afbd66a 100644
--- a/autoscan.pl
+++ b/autoscan.pl
@@ -19,7 +19,7 @@
 
 # Written by David MacKenzie <djm@gnu.ai.mit.edu>.
 
-require "find.pl";
+use File::Find qw(find);
 
 $datadir = $ENV{"AC_MACRODIR"} || "@datadir@";
 $verbose = 0;
@@ -30,7 +30,7 @@ undef %programs_macros;
 
 &parse_args;
 &init_tables;
-&find('.');
+find(\&wanted, '.');
 &scan_files;
 &output;
 
@@ -124,13 +124,13 @@ sub init_tables
 sub wanted
 {
     if (/^.*\.[chlymC]$/ || /^.*\.cc$/) {
-	$name =~ s?^\./??; push(@cfiles, $name);
+	$File::Find::name =~ s?^\./??; push(@cfiles, $File::Find::name);
     }
     elsif (/^[Mm]akefile$/ || /^[Mm]akefile\.in$/ || /^GNUmakefile$/) {
-	$name =~ s?^\./??; push(@makefiles, $name);
+	$File::Find::name =~ s?^\./??; push(@makefiles, $File::Find::name);
     }
     elsif (/^.*\.sh$/) {
-	$name =~ s?^\./??; push(@shfiles, $name);
+	$File::Find::name =~ s?^\./??; push(@shfiles, $File::Find::name);
     }
 }