Select Code to Download

#!/usr/bin/perl -w

...
$sth->finish
    or die "Error finishing sth.\n";
warn "Finished!\n";