#!/usr/bin/perl
#
# Perl CubeBorg Core Code (PCCC)
#

use PHP;
use Java;
use JavaScript;
use Inline Python => 'DATA';   # Mr. DATA is working for us
use Inline Ruby   => 'DATA';
use Inline Basic  => 'DATA';
use Inline C      => 'DATA';

###
motto;

###
PHP::eval(<<EVAL);
  $search = array ('@my@i','@me@i');
  $replace = array ('our','us');
  $new_brain = preg_replace($search, $replace, $old_brain);
EVAL

###
my $runtime = new JavaScript::Runtime;
my $context = $runtime->create_context();
$context->eval(q!
  function starcubeborg() {
    write("The CubeBorg is running!<BR>");
  }
!);

###
my $java = new Java;
my $frame = $java->create_object("java.awt.Frame","Perl CubeBorg");
$frame->setSize(400000,400000,400000);
$frame->show();
my $weapon = $java->create_object("java.awt.Button","Push Me :)");
$java->do_event($button,"addActionListener",\&event_handler);

sub event_handler {
  my($object,$event) = @_;
  if ($object->same($weapon)) {
    print "You pushed my button!!\nYou are dead!!!";
  }
}

### Technologies ###

__DATA__
__Python__
def surrendered(x): 
    print "You are surrendered!!!"
    return x

def kidnap(x):
    print "I take you!!!"
    return x

__Ruby__
def add_distinctiveness(a)
     our_distinctiveness + a
end

__Basic__
010 DEF DEFEAT(S) = DEFEATS+1
020 DEF SUCCESSES(S)= SUCCESSES+1

__C__
void motto() {
  printf(
   "We are the PerlBorg. Lower your shields and surrender your ships. 
+"
   "We will add your biological and technological distinctiveness to o
+ur own. "
   "Your culture will adapt to service us. Resistance is futile.\n");
}
[download]