#! /usr/bin/perl
## shutdown METAL_GEAR, rex
## by Shadowstar
## This will run in your standard BSD Unix based system
## For those of you who've never heard of Perl Poetry before,
## consult any site you find on Google
## Where else could you find lines like "send a, fork(), "through", my $heart;"
## For those of you wondering where in HELL the next chapter of In the Name of Peace is
## be assured that I'm working on it... but I want a good ending, and it's eluding me...
## Right now, Ocelot is trying to tell the entire story to Hal, and I'd rather not
## have an "evil bad guy reveals plot points" scene... so please be patient...
pop @soldier; kill 1, $child;
prototype MetalGear;
my $fault;
pop @soldier or push @soldier or kill 1, @soldier;
$live or die;
rename me, otacon;
alarm;
warn "Snake!";
listen look, hide and wait and do nothing;
$Snake ? still : there;
return and redo;
pop @em_all and kill 1, more;
kill 1, MetalGearPrototype;
tell OTACON and warn "Otacon";
do nothing, Otacon;
do security, in,
reverse;
$Snake.$can;
exit;
tell EVERYONE or delete $the{$evidence};
select CORRECT_OPTION;
sort it out;
chop and chop and
chop and kill;
close IT_DOWN;
do I_run or hide;
$stand.$ground;
die
"or not";