#!/usr/bin/perl
# vim: set ts=4 sw=4 et sta:
use strict;
use warnings;


open my $pipe, './mpstat.sh |' or die "Pipe failed: $!\n";

while ( my $line = <$pipe> ) {

    my $time = localtime;

    local $, = ' ';
    print $time, $line;
}

close $pipe or die "Pipe failed: $!\n";