DouKaku?

#! /usr/bin/perl

use    strict;
use    bigint;

package    Prime;

sub checkPrime {
    my    ($pkg,$primes,$forCheck) = @_;
    !scalar(grep { $forCheck % $_ == 0 } @$primes);
}

sub getNext {
    my    ($pkg,$primes,$from) = @_;
    my    $next = $from;
    $next++ until ($pkg->checkPrime($primes,$next));
    $next;
}

sub primes {
    my    ($pkg,$count) = @_;
    my    $next = 1;
    my    $primes = [];
    for(1..$count) {
        $next = $pkg->getNext($primes,$next+1);
        push(@$primes,$next);
    }
    $primes;
}


package    Meertens;

sub meertenses {
    my    ($pkg,$max,$primes,$meertenses,$place,$baseNumber,$baseGoedel) = @_;
    my    $prime = $primes->[$place];
    for (0..9) {
        my    $number = $baseNumber * 10 + $_;
        my    $goedel;
        last if ($number > $max);
        $goedel = $baseGoedel * $prime ** $_;
        push(@$meertenses,$goedel) if ($goedel == $number);
        if ($place < length($max) && $goedel < $max) {
            $pkg->meertenses($max,$primes,$meertenses,$place + 1,$number,$goedel);
        }
    }
    $meertenses;
}


package    main;

sub timestamp {
    my    ($second, $minute, $hour, $day, $month, $year) = @_;
    $year += 1900;
    $month++;
    sprintf("%04d/%02d/%02d %02d:%02d:%02d",$year,$month,$day,$hour,$minute,$second);
}

print "start:".timestamp(localtime)."\n";

print join("\n",@{Meertens->meertenses(9999999999,Prime->primes(10),[],0,0,1)})."\n";

print "end:".timestamp(localtime)."\n";

1;