Select Code to Download

my $sthopen = $dbh->prepare("INSERT INTO.....
$sthopen->execute;
...
$resid->execute;
&ErrorDBI;
my @idrow = $resid->fetchrow_array;