sub insert_data {
my $pro_info=shift (@_);
my $rdate=get_date();
my $dbh=connect_try("rowan","******");
my $p01=$dbh->quote ($rdate);
my $p02=$dbh->quote ($pro_info->{apn_number});
my $p03=$dbh->quote ($pro_info->{str_no_addr});
my $p04=$dbh->quote ($pro_info->{str_name_addr});
my $p05=$dbh->quote ($pro_info->{str_aptno_addr});
Maybe there is some 'namespacing' (module, class, object)? Then the first argument would be $class, $self or something.
Have you tried Data::Dumper to output the data structure (Dumper($pro_info))?
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
