sub PRINT{
    my $k, my $z, my $x, my $c;
format head=
user    | processes |  cpu-seconds  |  memory (k)
--------+-----------+---------------+------------
.
format result=
@<<<<<<<|@>>>>>>>>  |@>>>>>>>>>>>>  |@>>>>>>>>>>>
$k,      $z,         $x,             $c
.
    $- = "result";
foreach $k(@keys){
    $z = $sum2->{$k}->{'process'};
    $x = $sum2->{$k}->{'time'};
    $c = $sum2->{$k}->{'mem'};
    #$- = "result";
    write();

  }
}#end of sub PRINT

##</code><code>##


Undefined format "STDOUT" called at pigs line 64.