Select Code to Download

#!/usr/bin/perl -w
use strict;
...

print "$rows row(s) updated in checkin";
$dbh->disconnect || die "Failed to disconnect\n";

 _  _ _  _  
(_|| | |(_|><
 _|