diff --git a/bin/account-manager.pl.in b/bin/account-manager.pl.in
index a9ef29c97fba40f5551fbd287df7c8519a3f4dd5..67f7fa5580270e9b837180268d6eeb06a99def52 100755
--- a/bin/account-manager.pl.in
+++ b/bin/account-manager.pl.in
@@ -225,6 +225,12 @@ sub list_providers {
         $provider->print();
     }
 
+    if ($options{delete}) {
+        foreach my $provider (@$providers) {
+            $provider->delete() or die "failed to delete authentication token\n";
+        }
+        printf "%d providers removed\n", scalar @$providers;
+    }
 }
 
 sub list_tokens {
@@ -351,6 +357,7 @@ S<B<--contact> I<string>>
 S<[B<--displayname> I<string>]>
 
 B<account-manager-client.pl> B<list_providers>
+[B<--delete>]
 
 B<account-manager-client.pl> B<list_tokens>
 S<B<--sp_entityid> I<string>>