#!/usr/bin/perl
open( CMD, "top -b -n1 |") ||
  die "cannot fork: $!";

while ( <CMD> ) {
        if ( /^top:/ ) {
                print "Detected lrk4 version of top\n";
        }
}
close( CMD );