Select Code to Download

use strict;
use warnings;

#!/usr/bin/perl

...
    $sth->execute($elements[1], "$elements[0]\n");
}
$dbh->disconnect;