my $transbar= "\0" x 66;
my $pTransbar= unpack "I", pack "P", $transbar;
my $rc= $dll->C­all( $track­, $route, $pTransbar );
$transbar =~ s/\0.*$//;
print "$transbar \n";