Select Code to Download

my $dbh=DBI->connect($db,$username,$pass,{RaiseError => 1}) or die("Co
+uldn't connect to database ".DBI::errstr);

$dbh->do($sql);