Select Code to Download

my @forms = $mech->forms;
my ($form_number) = grep { $forms[$_-1]->action eq 'http://www.lyricsd
+ownload.com' } 1 .. @forms;
...
    ...
  },
);