diff --git a/misc/migration_tools/remove_unused_authorities.pl b/misc/migration_tools/remove_unused_authorities.pl
index da57f88f42..0065a16e9f 100755
--- a/misc/migration_tools/remove_unused_authorities.pl
+++ b/misc/migration_tools/remove_unused_authorities.pl
@@ -24,7 +24,7 @@ use Modern::Perl;
 
 use Koha::Script;
 use C4::Context;
-use C4::AuthoritiesMarc;
+use C4::AuthoritiesMarc qw( DelAuthority );
 use Getopt::Long qw( GetOptions );
 
 use Koha::SearchEngine::Search;