So, I try it with Perl 6... :)

#!/usr/bin/perl6

use v6;

# I'm a little ashamed to say the her name.

our @history;
our @ever = 0 .. Inf;

sub Written (@place, @what) {
    push @place, @what
}
sub history ( ) {
    return @history
}
sub with ($n1, $n2) {
    return $n1, $n2
}
sub Me ( ) {
    return "Me"
}
sub You ( ) {
    return "You"
}
sub ever ( ) {
    return @ever
}

say "Running...";

#########################
    Written history,
     with Me, You
       for ever
#########################

# Just Another Perl Poem.
# 0xP6 / EOS (End Of Script)
[download]