$ perl -MBusiness::OnlinePayment -we 'for( 1..2 ) { \
   my $tx= Business::OnlinePayment->new('AuthorizeNet'); 
}'