While ( True )
{
    print "I know not what to do";

    While ( <> $EndOfFile )
    {
        open ( EYES, "</Posts/Worthwhile" );
    }

    print "And I have even tried...";
    open ( FINGERS, ">/NewPost/SaveMyHide" );

    print "For Shame, I have been tempted...";
    For ( $NewPost < $IAmResented )
    {
        open ( FINGERS, ">/NewPost/SpamPrevented" );
    }

    print "Alas I must prevail";
    While ( $i = FAIL )
    {
        HTTP::Request->new(GET => $MonksAdvice);
        open ( FINGERS, ">/NewPost/BeRealNice" );
    }
}
[download]