require HTTP::Request;
require LWP::UserAgent;
use HTTP::Request::Common;

	
	print "hallo\n";

	my $ua = LWP::UserAgent->new;	
	$ua->env_proxy;
	$te='hallo hallo hallo';
	print $te;
	my $response = $ua->get('http://sentimentanalyzer.appspot.com','input'=>$te);
	
	if ($response->is_success) {
		print "seccess\n";
		$page=$response->content;		
		print $page;
	}