First Palindrome Prime after time()

#!/usr/env/perl

#############################
#   guedes.acp              #
#############################

use warnings;
use strict;
use feature 'say';
use Math::Prime::Util ':all';

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

    while(!is_prime($time)){
        $time = palindrome(next_prime($time));
    }
    say $time;
}

sub palindrome {
    my $n = shift;
    my $r;
    if($n == reverse $n){$r = $n}
    else{
        my @d = split(//, $n);
        my $s = int $n * (0.1 ** (int scalar @d * 0.5));
        $s++;
        my $s1 = (scalar @d % 2 != 0) ? int $s * 0.1 : $s;
        $r = $s . reverse $s1;
    }
    return $r;
}

main();