#!/usr/bin/env perl
use Acme::Brainfuck;
print "Just another ";
++++++[>++++++++++++++++<-]>
++.--
>+++[<++++++>-]<.>[-]+++[<------>-]<
+.-
+++++++++.---------
++++++++++++++.--------------
++++++.------
>+++[<+++++++>-]<.>[-]+++[<------->-]<
+++.---
+++++++++++.-----------
print " hacker.\n";

##</code><code>##

use JavaScript::Embedded;
 
## create new js context
my $js = JavaScript::Embedded->new();
 
# set function to be used from javascript land
$js->set('write' => sub {
    print $_[0], "\n";
});
 
$js->eval(qq{
    (function(){
        for (var i = 0; i < 100; i++){
            write(i);
        }
    })();
});

##</code><code>##

use Lingua::Shakespeare;
 
The Infamous Hello World Program.
 
Romeo, a young man with a remarkable patience.
Juliet, a likewise young woman of remarkable grace.
Ophelia, a remarkable woman much in dispute with Hamlet.
Hamlet, the flatterer of Andersen Insulting A/S.
 
 
                    Act I: Hamlet's insults and flattery.
 
                    Scene I: The insulting of Romeo.
 
[Enter Hamlet and Romeo]
 
Hamlet:
 You lying stupid fatherless big smelly half-witted coward!
 You are as stupid as the difference between a handsome rich brave
 hero and thyself! Speak your mind!
 
etc...

##</code><code>##

use Acme::ButFirst;
 
# Print a greeting, but first find caffiene.
 
{
        print "Good morning!\n";
} but first {
        print "I need a coffee\n";
}

##</code><code>##

use Inline ASM => <<'END', PROTOTYPES => {JAxH => 'void(char*)'};
 
.globl JAxH
.text
 
# prototype: void JAxH(char *x);
JAxH:   pushl %ebp
        movl %esp,%ebp
        movl 8(%ebp),%eax
        pushl %eax
        pushl $jaxhstr
        call printf
        movl %ebp,%esp
        popl %ebp
        ret
 
.data
 
jaxhstr:
        .string "Just Another %s Hacker\n"
END
 
print JAxH('Perl');

##</code><code>##

print "9 + 16 = ", add(9, 16), "\n";
print "9 - 16 = ", subtract(9, 16), "\n";
 
use Inline Python => <<'END_OF_PYTHON_CODE';
def add(x,y): 
   return x + y
 
def subtract(x,y):
   return x - y
 
END_OF_PYTHON_CODE