Select Code to Download

 
  $lastname = "Smith ";
  $qs = "select * from table where lastname = ? "
...
        or die "db error " . DBI->errstr;
  @data = $sth->fetchrow_array;
  print "@data";

#!/usr/local/bin/perl
...
$sth->finish;
$dbh->commit;
$dbh->disconnect;