--- /dev/null
+#!/usr/bin/perl
+
+use FS::UID qw(adminsuidsetup);
+use FS::Record qw(qsearch);
+use FS::cust_main;
+
+adminsuidsetup shift or die 'usage: dump_tokens username';
+
+foreach my $cust_main ( qsearch({ table => 'cust_main',
+ extra_sql => "WHERE payby IN ('CARD','DCRD')",
+ })
+) {
+ print $cust_main->custnum. ','. $cust_main->payinfo. "\n";
+}