Ultima tentativa

#!/usr/env/perl

use warnings;
use strict;
use feature 'say';
use Math::Prime::Util qw/is_prime next_prime/;
use Math::Palindrome qw/next_palindrome is_palindrome/;

sub main{
    my $time = time();
    say "Current time: $time";
    $time = next_palindrome($time);

    while(!is_prime($time)){
        $time = next_palindrome($time);

        if (is_palindrome($time) and !is_prime($time)){
            $time = next_prime($time);
            if(!is_palindrome($time)){$time = next_palindrome($time)}
        }

        if((reverse $time) % 2 == 0){
            $time = reverse $time;
            $time++;
            $time = reverse $time;
        }
    }
    say "$time";
}
main();