http://qs321.pair.com?node_id=204558


in reply to Credit Card Validation Communications

You should search the CPAN.
Try to look for Business::OnlinePayment


$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g