#!/usr/bin/perl -w

use strict;

my $filename = $ARGV[0]; 

my ($user, $cmd, $start);

open(INFILE, "<$filename") or die "Couldn't open $filename\n";

# Examples:
# nobody     440  0.0  0.3  1292  628 ?        S    15:09   0:00 identd -e -o
# root       692  0.0  0.2  1092  412 tty6     S    15:09   0:00 /sbin/mingetty t
# karen      813  0.5  4.9 11460 9192 ?        S    15:12   0:35 xemacs

while($line = <INFILE>) {

  if($line =~ /      /) {
    $user = $1;
    $start = $2;
    $cmd = $3;
    
    print "$user started running $cmd at $start\n";
  }
}