my $database = DBI->connect ('DBI:mysql:mydatabase:myserver.com', 'username', 'password') || die;

	my $command = "SELECT Data,PostedAt FROM WEATHER ORDER BY ID DESC LIMIT 1";
	my $cursor = $database->prepare ($command) or die $database->errstr . "<br>" . $command;
	$cursor->execute or die $database->errstr . "<br>" . $command;
	$DBI::rows == 1 or die "db_read_latest_record returned a value other than 1";
	my @row = $cursor->fetchrow_array;
	$cursor->finish;

	$database->disconnect;

	return (@row);