Select Code to Download

#! /soft/perl5/bin/perl
require DBI;
...
{ RaiseError => 1, AutoCommit => 0 }
);
$dbh->disconnect;

#! /soft/perl5/bin/perl
require DBI;
...
);
$dbh->disconnect;
sleep 1000;