Select Code to Download

my $Tx = Win32::API::More->new( 'AID.dll', 'KSENT_TX', 'CPN', 'C');
 #### $^E is non-Cygwin only
...
  #### or on Cygwin and non-Cygwin
die "Error: ".(Win32::FormatMessage(Win32::GetLastError())) if ! $Tx;
my $rettx = $Tx->Call(0, $data_ref, 1);

my @data = (129,85,0,224);
my $data_ref = \@data;