Home: Fun With Perl: Perl Poetry:
Ode to George - For President's Day



fashimpaur
User

Feb 19, 2002, 10:46 AM


Views: 50063
Ode to George - For President's Day

Ode To George (Perl Poetry);
by Dennis M. Fashimpaur;

[perl]
$George = "boy";
chop($cherrytree);
seek FORGIVENESS, 0, 0;
tell DAD;

import No::Tea;
send KING, "Declaration of Independence", FLAG;

$George = "General";
$militia = join(" + ", ($George, "minutemen", "French"));
alarm $Boston;
open REVOLUTION ">$England";
while (<REVOLUTION>){
s/tyranny/freedom/g;
continue;
}
close REVOLUTION;

rename $colonies, $UnitedStates;

$George = "Free Man";
accept PRESIDENTIAL_NOMINATION, ELECTION;
do { $presidency };
&livefree or die;
[/perl]
Dennis

$a="c323745335d3221214b364d545".
"a362532582521254c3640504c3729".
"2f493759214b3635554c3040606a0",
print unpack"u*",pack "h*",$a,"\n\n";


(This post was edited by fashimpaur on Feb 19, 2002, 11:08 AM)