my $tx = new Business::OnlinePayment("AuthorizeNet");
$tx->content(
        type           => $cardtype,
        login          => $login,
        password       => $pass,
        amount         => $amount,
        card_number    => $ccnum,
        expiration     => $ccexp);
$tx->submit();
if($tx->is_success()) { &do_something; } else { &another; }

$tx = new Business::OnlinePayment("AuthorizeNet");
$tx->content(
        type           => $cardtype,
        login          => $login,
        password       => $pass,
        amount         => $amount,
        card_number    => $ccnum,
        expiration     => $ccexp);
$tx->submit
if($tx->is_success()) { &do_something; } else { &another; }

##</code><code>##

Subroutine server_response redefined at (eval 19) line 1.
Subroutine path redefined at (eval 20) line 1.
Subroutine require_avs redefined at (eval 21) line 1.
Subroutine port redefined at (eval 22) line 1.