Select Code to Download

    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);