Select Code to Download

#!/usr/bin/perl

...
  print "summing $arg1 en $arg2\n";
  return $arg1 + $arg2;
}

use strict;
use Socket;
...
  print $line;
}
close SOCKET or die "close: $!";

use LWP::UserAgent;
my $ua = new LWP::UserAgent;
...
my $response = $ua->post('http://localhost:8999', $content) ;

print $response->content;

<title>403 Forbidden</title>
<h1>403 Forbidden</h1>

#!/usr/bin/perl -w

...
my $response = $ua->request($req);

print $response->content;