use DBI;

$sth = $dbh->prepare("SELECT Date,Time,Metal_Code,Metal_Desc,Weight,Price FROM History
WHERE Date = ?
ORDER by Date, Time, Metal_Code") or die "prepare failed: $DBI::errstr";
$sth->bind_param(1,$RDate) or die "bind_param failed: $DBI::errstr";
$sth->execute() or die "execute failed: $DBI::errstr";

print "\nDetail Report for $MonthName[$mon] $day, $yr\n";
while (my @data = $sth->fetchrow_array()) {
    print @data, "\n";
}