Select Code to Download

#!/usr/bin/perl
use warnings;
...
    print "Access Code Required\n";
  }
 else{print "sucess\n"}

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