script to test cg/sgminer output

info.sh

#!/usr/bin/perl
# script to test cg/sgminer API output
my $command = "summary|";

use Socket;
use IO::Socket::INET;
my $sock = new IO::Socket::INET (
        PeerAddr => '127.0.0.1',
        PeerPort => 4028,
        Proto => 'tcp',
        ReuseAddr => 1,
        Timeout => 10,
       );
if ($sock) {
  print $sock $command;
  my $res = "";
	while(<$sock>) {
		$res .= $_;
	}
	close($sock);
  print $res;
} else {
  print "cgminer socket failed";
}