Select Code to Download

#!use/local/bin/perl

...
 return $dbh;
}

package DIR::DBTeams;

...
$cur->finish;
return $ret;
}

...
($ret) = $cur->fetchrow_array();
...