#!/usr/bin/perl
if ($_[0])
{
   $filename=$_[0];
}
else
{
   print "USAGE: getUserAgent <logfile name>\n";
   exit;
}

@lines=`cat /path/$filename`;
foreach $line (@lines)
{
   @elements=split(' ',$line);
   if ($elements[1] eq "Mozilla")
   {
    $capture = grep(/bMozilla/i\w+\W+\d+\s+\S+,userAgent);
   }
    printf "\n", @userAgent;
}