Select Code to Download

my @forms = $tree->find_by_tag_name('FORM');

my $forms = $tree->find_by_tag_name('FORM');
die "What, no forms" unless scalar @{$forms};
my $f = HTTP::Request::Form->new($$forms[0], "$IS_URL/$session_id/Serv
+ice/SysAdmin/DataImport/1/2");