gistfile1.txt

#!/usr/bin/env perl;
use warnings;
use strict;
use IPC::System::Simple qw/capture/;
use DateTime;
my $now = DateTime->now;
my $st = '/usr/local/bin/speedtest-cli'; # via pip-install speedtest-cli
my $res = capture "$st";
my ($ping) = $res =~ /(\d+\.\d+) ms/ms;
my ($download) = $res =~ /Download: (\d+\.\d+) /ms;
my ($upload) = $res =~ /Upload: (\d+\.\d+) /ms;
my ($server) = $res =~ /Testing from (\w+)/ms;
print "$now,$ping,$download,$upload,$server\n";