#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;

my $url = 'http://www.example.com/cgi-bin/testcode.tcl';

my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->get($url);

my(%fields) = (
    modem     => '1122.3344.5566',
    ip_select => '1.2.3.4',
);

my $result = $mech->submit_form(
    with_fields => %fields,
);
print $result;