#!/usr/bin/perl
    require "lll.pl";
    
    my $outFileName = shift @ARGV;
    my $errFileName = $outFileName . ".err";
    open( STDOUT, ">> $outFileName" )
      || die "failed to redirect STDOUT to '$outFileName': $!";
    open( STDERR, ">> $errFileName" )
      || die "failed to redirect STDERR to '$errFileName': $!";
    
    open (TOP, "/usr/bin/env -i COLUMNS=1000 /usr/bin/top -bcS -n 1 |")
      || die "open pipe from top failed $!";
    print longestLineLength( <TOP> ) . "\n";

$ ./test-04.pl output
$ cat output
81