#!/usr/bin/perl

if ($ARGV[0] eq "") {
        $host = "localhost";
}else{
        $host = $ARGV[0];
}
  
@res = `links --dump http://$host:80/server-status?auto`;
foreach $res (@res) {
  if ($res =~ /Total Accesses: (\d+)(.*)Total kBytes: (\d+)/) { $hits = $1;  $traf = $1 * 1024; next }
}

print "hits:$hits traf:$traf";