Select Code to Download

#!/opt/perl-5.20/bin/perl
use strict;
...
  my $rc  = $sth->execute($Customer_ID);
  while (my $rrow = $sth->fetch) { print $rrow->[0], "\n"; }
}

$ DBI_TRACE=0 ./customer_dbi.pl
10
...
    <- disconnect_all= ( '' ) [1 items] at DBI.pm line 748
!   <- DESTROY(DBI::dr=HASH(0xd1ad40))= ( undef ) [1 items] during glo
+bal destruction