my $sock = new IO::Socket::INET (
      PeerAddr => "$hostname",
      PeerPort => "$port",
      Blocking => 0,
      Proto => 'tcp',
 );

 print $sock "Action: Login\r\n";
 print $sock "UserName: $foo\r\n";
 print $sock "Secret: $bar\r\n\r\n";
 print $sock "Action: status\r\n\r\n";

 $/="\r\n";
 open(FH,">>/home/chris/statusdump.txt");
 while(my $data=<$sock>){
      $data =~ /[a-z]/ || next;
      print FH $data;
 }
 close FH;