#!/usr/bin/perl
open PIPE, "/usr/local/bin/top -b -n 3 |" or die "Cannot open";
my $output = join '', <PIPE>;
close PIPE or die "Running top failed";
print "$output\n";
exit(0);