Select Code to Download

my $dsn          = 'NULL';
my $db_user_name = 'NULL';
my $db_password  = 'NULL';

my $dbh = DBI->connect($dsn, $db_user_name, $db_password) || die $dbh-
+>errstr;

  $query->execute() || die $dbh->errstr;

...
        push( @results, $a );
    }
    return @results;

my $records = $query->fetchall_arrayref;
return @$records;

WHERE ID = \'$_[0]\'