Select Code to Download

while (my $vals = fetchrow_hashref) {
    print "name=$vals->{'name'}, wins=$vals->{'wins'}, losses=$vals->{
+'losses'}\n";
    ++count;
}

use strict;

...
#$data ->close (); #Don't know what this is.. probably old code..?
$dbh->disconnect (); 
exit (0);