Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "@$_\n" for @results;

$dbh->disconnect();

my $dbh = DBI->connect("DBI:mysqlPP:test;host=localhost;",
    "gmax","mysecretpwd",{RaiseError => 1});

 _  _ _  _  
(_|| | |(_|><
 _|