Select Code to Download

Connecting to a database:

...
print "Insert the  $c rows\n";

$dbh->disconnect();

#!/usr/bin/perl
...
  return \@lines;
}