A quick and dirty way might be

my $whole_page = $resp0->content;
my ($token) = $whole_page =~ /<input[^>]*?value="(.*?)"/;
[download]

A more robust solution might be to use WWW::Mechanize and search through the input fields it parses. Or what wfsp said. :)