use Win32::API;
$dll = new Win32::API("USPS4CB","USPS4CB",[P,P,P],I);</span><br />
$transbar = "\0"x66; 
$bardata = "3070202120200000000127203643012";
$rc =0;
$track = substr($bardata,0,20) . "\0";
$route = substr($bardata,20,11) . "\0";
$rc = $dll-&gt;Call($track,$route,$transbar);
$transbar =~ s/\0.*$//; 
print "$transbar \n";