# Measure latencies
my $latester=<<'EOF';
-set -x
+set -e
rm -f tmp-stat.txt
echo "Starting latester"
-sudo ifdown eth0
+sudo /sbin/ifdown eth0
sudo ~/bin/latester -d can0 -d can1 -d can2 -c 3200 -q --oneattime -n tmp
r=$?
-sudo ifup eth0
+sudo /sbin/ifup eth0
set -e
source tmp-stat.txt
for i in sent lost enobufs $(seq -f percentile%g 0 10 100); do keyval="$keyval $i=$((i))"; done
EOF
my $status = system((qw(ssh -T glab), $latester));
-$exp->soft_close();
+$exp->close();
exit($status >> 8);