+ my $result = $artera->newOrder(
+ 'email' => $email,
+ 'cname' => $name,
+ 'ref' => $refnum,,
+ 'aid' => $affiliatenum,
+ 'add1' => $address1,
+ 'add2' => $address2,
+ 'add3' => $city,
+ 'add4' => $state,
+ 'zip' => $zip,
+ 'cid' => $country,
+ 'phone' => $phone,
+ 'fax' => $fax,
+ );
+
+ if ( $result->{'id'} == 1 ) {
+ #Success!
+ $serialnum = $result->{'ASN'};
+ $keycode = $result->{'AKC'};
+ } else {
+ #Failure
+ die $result->{'message'};
+ }
+
+ # etc...
+