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