use HTTP::Request::Common;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $req = POST 'https://secure.authorize.net/gateway/transact.dll',
   [	
   x_version        => '3.1',
   x_delim_data     => 'True',
   x_relay_response => 'False',
   x_login 	     => 'somepassword',
   x_tran_key       => $decrypted,
   x_amount         => $totalamt,
   x_card_num       => $ccnumber,
   x_exp_date       => $month.$year,
   x_type           => 'AUTH_CAPTURE',
   ];

my $reply;
my $response = $ua->request($req);
if ($response->is_success) {
   $reply = $response->content;
   } else {    
   print STDERR $response->status_line, "\n";
   } 

#parse $reply for authorized/decline codes and echo messages back to purchaser...

my @replies = split(/,/, $reply);
my $reason = $replies[3];
SWITCH: for ($replies[0]) {
   /2/ && do { &declined; last; };
   /3/ && do { &error; last; };
   $replies[0] = 0;
 }