#!/usr/local/bin/perl
$now = localtime(time);
$now =~ s/^\S+\s+(\S+\s+\S+)\s+.*$/\1/;
system("/usr/bin/grep \"^$now\" $ARGV[0] | /bin/mailx -s \"$ARGV[0]\" root");