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

use vars qw/@stdout @stderr $commandline @time /;
$commandline = 'perl sapr.pl';

open (CMD, "(time $commandline | sed 's/^/STDOUT:/') 2>&1 |");
   while (<CMD>) {      
     if (s/^STDOUT://) {        
       push @stdout, $_;        
     }
     else {
       push @stderr, $_;        
     }
   }
close CMD;

@time = splice(@stderr, -4, 4);

print "@time", $/;