$ perl -Mstrict -Mwarnings -E ' open my $ntpqFH, q{<}, \ <; say for map { ( split )[ 8 ] } @asteriskLines;' -0.025 $