Select Code to Download

    I'd travel to the ends of time
    For you, my one, my only love.
...
    For you my dearest darling dove.
    I'd do it all, and more beside;
    Now *would* you take the trash outside?

    I've taken the trash out innumerable times,
    I've taken the trash out in inclement climes,
    I've taken the trash out 'cuz that's what I do,
    But I won't take the trash out when you tell me to.

    print STDOUT q
    Just another Perl Hacker,
    unless $spring

    print standard out queue
    Just another Perl Hacker,
    unless dollar spring

    Error messages
    strewn across my terminal.
...
    But it prefaces
    the bad news of failure with
    a soothing haiku.

    sub summer { my $sum;
    $sum += $_ for @_;
    $sum } print summer (split);