#!/usr/bin/perl
($x)=@ARGV;for($p=2;$p<$x;$p++){if((1x$p)!~/^(11+)\1+$/){$y[$d++]=$p;}}$d--;$t=$d;
for(;$d>0;){$q=$y[$d--];for($u=0;$u<$t;$u++){$h[0]=$y[$u];for($a=0;$a<$t;$a++){if($h[0]+$y[$a]+$q==$x)
{print "Found Goldbach: $h[0] + $y[$a] + $q == $x\n";exit;}}}}

Disclaimer: This is an unofficial UMMS page.