Computer Availability Map login script

login.pl

#!/usr/bin/perl -w

use LWP;
use Sys::Hostname;

my $host = hostname();
 #the hostname after which you can find out the IP address
my $ipaddr = inet_ntoa(scalar gethostbyname($host || 'localhost'));

$ua = LWP::UserAgent->new;
#timeout in 60 seconds if we can't make a connection
$ua->timeout(60);

#send the HTTP request with the status of 1 and computer name
$request = $ua->post('http://yourdomain.edu/statuschange.php',
            	["status" => "1",
            	"workstation" => $ipaddr,
   	 "host" => $host]);

#if successful log 200 status else quit and log error
if ($request->is_success) {
	$content = $request->content;
    print "Content-type: text/html\\n\\n";
    print $content;
} else {
      die "Can't get to URL", $request->status_line;
}
exit;

I am almost writing the same login.pl code. And when I execute the login.pl, it will print the " Content-type: text/html\n\n" , but not the $content. Is there anything that I am doing wrong?