#!/usr/bin/perl

use strict;
use warnings;

my @cmd = (
	q{date},
	q{perl5.32.0 -le 'print "Hello world!"'},
	q{python3.7 -c 'print("Hello world!")'},
	q{ruby26 -le 'print "Hello world!"'},
);
my @res;
for (1..3) {
	@res = ();
	for (reverse @cmd) {
		(my $q = $_) =~ s/'/'"'"'/g;
		push @res, "\$ time $_\n" . `bash -c 'time $q' 2>&1`;
	}
}
print join("\n", reverse @res);