#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request::Common;
  
my @multi = (1..10);

my $ua = new LWP::UserAgent;
 
my $res = $ua->request(GET 'http://www.sn.no', action=>'submit', multivals=>[@vals]);

if ($res->is_success) {

}else{

}