:
: some handwaving...
:
open PIPE,"netstat -s |" or die $!;
my @slurp=<PIPE>;
close PIPE;
chomp @slurp;
grep /Retran/,@slurp;
printf "%s\n",join("\n",@slurp);
:
:

##</code><code>##

    TCPLostRetransmit: 0
    TCPFastRetrans: 0
    TCPForwardRetrans: 0
    TCPSlowStartRetrans: 0