#!/usr/bin/perl -w
use strict;

my @data = ();
$/ = '------------------------------------------------------------\n';
open(PIPE,'ulread |') || die "could not fork() : $!\n";
while (my $line = <PIPE>) {
    ## total block
    push @data, $line    
}
close(PIPE) || die "close error : $!\n";

for(1..4){ pop @data; }