#!/usr/local/bin/perl -w
$++;
open(PIN,"/bin/ping -n -c 1 bat.cs.hut.fi|") or die "bug: $!";
$_ = <PIN>; # discard first line
$_ = <PIN>;
print $1 if /time=(\d+)/;
close(PIN);