#!/usr/bin/perl
use warnings;
use strict;
use LWP::UserAgent;

my $ua = new LWP::UserAgent;
my $request = new HTTP::Request( "GET", "http://192.168.0.1/connect.cgi?conn=0" );
#conn=1 to connect
my $response = $ua->simple_request( $request );
my $contents = $response->content();
print "$contents\n";