Select Code to Download

use DBI;

$sth = $dbh->prepare("SELECT Date,Time,Metal_Code,Metal_Desc,Weight,Pr
+ice FROM History
...
while (my @data = $sth->fetchrow_array()) {
    print @data, "\n";
}