Select Code to Download

#! perl -slw
use strict;
...
<trxid>33333333</trxid>
<description>Transfer Completed</description>
</response>

c:\test>junk4
{
...
  status => "success",
  trxid => 33333333,
}