#!/usr/bin/perl -w
use strict;

use Win32::API;

my $PGetAddress = Win32::API->new(
        'IBKGetAddress2.dll', 'GetAddress', 'PP', 'N' )
    or  die "Can't import API : $!\n";

my $Address = pack "S*", unpack("C*","419 w 154"), 0;
my $ZipCode = pack "S*", unpack("C*","10032"), 0;

my $return = $PGetAddress->Call( $Address, $ZipCode )
    or  die "Can't run API: $! ($^E)\n";

my $string = pack "C*", unpack "S*", unpack "P2000", pack "L", $return;
$string =~ s/\0.*//s;

print "Output: ($string)\n";