# at this point connection to the DB is ready
...

my $input='12345';
my $sth = $dbh->prepare('CALL ZIPCODES('.$dbh->quote($input).')') or die $dbh -> errstr;

$sth->execute() || die $sth->errstr;

while( my @row = $sth->fetchrow_array ) {

print $row[0]." ",$row[1]." ",$row[2]."\n";

}

$sth->finish();