#!/usr/bin/perl
use strict;
use warnings;
use DBI;

# Database connection details
my $dsn = 'DBI:mysql:database=testdb;host=mysql-test.local.priv;mysql_write_timeout=2;mysql_read_timeout=2;mysql_connect_timeout=2';
my $username = 'test_user';
my $password = '12345';

# Connect to the MySQL database
my $dbh = DBI->connect($dsn, $username, $password, {
     mysql_enable_utf8 => 1,
});

$dbh->{mysql_auto_reconnect} = 1;

# Check if the connection was successful
if (!$dbh) {
    die "Could not connect to database: $DBI::errstr";
}

# Sleep for 40 minutes
print "Sleeping for 40 minutes...\n";
sleep(40 * 60); # 40 minutes

# Execute the query
my $sth = $dbh->prepare('SELECT 1 FROM dual');
$sth->execute();

# Fetch and print the result
while (my @row = $sth->fetchrow_array) {
    print "Result: @row\n";
}

# Clean up
$sth->finish();
$dbh->disconnect();

print "Done.\n";