4 use FS::UID qw(adminsuidsetup);
5 use FS::Record qw(qsearch);
8 my $user = shift or die &usage;
11 foreach my $cust_main ( qsearch( 'cust_main', {} ) ) {
13 print $cust_main->custnum. "\n";
15 $cust_main->invoicing_list( [ 'POST' ] );
20 die "Usage:\n\n all-postal-no-email user\n";