die "cant find key\n" unless ($text->as_string() =~ /KEY=([^&]+)\&/); my $key = $1;