Собственно, скрипт уже написан и работает(почти).
#!/usr/bin/perl -w
use strict;
use warnings;
my $put = "/home/stat/";
open FF, "/bin/cat /proc/meminfo \| /usr/bin/head -1 \| /usr/bin/awk '{print \$2}'|";
<FF>=~/(\d+)/;
my $m = $1/1024;
close FF;
open F, "/usr/bin/top -n 1 -b -c \| /bin/grep 'hlds_' \| /bin/grep -v 'SCREEN' \| /bin/grep -v '/bin/sh'|" or die "error: $!";
while (<F>)
{
chomp;
if($_=~/port\s\d+.+ip\s[\d\.]+/)
  {
     my $time = time;
     $_=~/^\s*([^\s]+\s+){8}([^\s]+)\s+([^\s]+)\s+.*port\s(\d+).+ip\s([\d\.]+)/;
     my $file = "$put$5:$4.txt";
     my $cpu = $2; my $mem = $3;
     $mem = int($mem*$m/100);
     open US, ">>$file" or die "error: $!";
     print US "$time\::$cpu\::$mem\n";
     close US;
   }
}
close F;

Проблема в другом, при ручном запуске скрипта, все отрабатывает нормально.
Но когда добавляешь в крон, /usr/bin/perl /home/stat/top.pl
Всплывают косяки:
/home/stat/top.pl: 2: use: not found
/home/stat/top.pl: 3: my: not found
/home/stat/top.pl: 5: Syntax error: "(" unexpected