open speedtest,"speedtest-cli --simple |" or die "Cannot open speedtest";
$datestring = localtime();
while (<speedtest>) {
	if (/Download\:[0-9\.]*)/)
	{
		$speed=$1;
		print "$datestring : Download $speed +n";
	}
	elsif (/Upload\:[0-9\.]*)/)
	{
		$speed=$1;
		print "$datestring : Upload $speed +n";
	}
}