perl <> mysql

#!/usr/bin/perl
use DBI;
use DBD::mysql;

#use strict;
$user="user";
$password="password";
$database="database";
$dsn="dbi:mysql:$database:localhost:3306";
$dbh = DBI->connect($dsn, $user, $password,
                      { RaiseError => 1, AutoCommit => 0 });
  $sth = $dbh->prepare("SELECT ID,Score1 FROM STUDENT_RECORD1");

  $sth->execute();

  while ( @row = $sth->fetchrow_array ) {
    print "@row\n";
  }