CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

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



fashimpaur
User

Feb 19, 2002, 10:46 AM


Views: 22662
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)


Edit Log:
Post edited by fashimpaur (User) on Feb 19, 2002, 11:08 AM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives