Find and kill queries which have been running for more than an hour in MySQL (Perl)

gistfile1.txt

#!/usr/bin/env perl

use DBI;
use warnings;

# DB Connection
my $dsn = "DBI:mysql:information_schema:dbod-testinstance:5500:mysql_read_default_file=$ENV{HOME}/.my.cnf";
$dbh = DBI->connect($dsn,undef, undef, {RaiseError => 1})
 or die "Connection Error: $DBI::errstr\n";

# Fetch Offending ID's
my $sql = "select id from processlist where time > 3600 and command=\'query\'";
my $sth = $dbh->prepare($sql);
$sth->execute() or die "SQL Error: $DBI::errstr\n";
my $ids = $sth->fetchrow_arrayref();
                     
# Killing loop       
for my $id (@{$ids}) {
    $sql = "kill $id";
    $sth->prepare($sql);
    $sth->execute() or die "SQL Error: $DBI::errstr\n";
}
                
$sth->finish(); 
$dbh->disconnect();

exit 0;