in reply to PerlMonks needs...
use Nineweight; tie ($fly, Nineweight); while (!$fish) { cast; if($arms == 'sore') { rest(5); cast; } } [download]
-- tbone1 As God is my witness, I thought turkeys could fly.