The thread is three years old, but since I came here seeking knowledge, I'm sure others will too. So: try the modules WWW::Mechanize or HTTP::WebTest. You can find them on http://search.cpan.org

$will->code for @food or $$;