Shell Programming and Scripting

perl -MTime::Local -lne'BEGIN {
    @m{qw[Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec]} = 0 .. 11;
  }
  @dt = split /[\s,:]/, $1 if /(.*) org.apache.catalina.startup.Catalina start/;

  END {
    time - timelocal $dt[6], $dt[5],
      $dt[4] = $dt[7] eq "PM" ? $dt[4] + 12 : $dt[4], $dt[1],
      $m{ $dt[0] }, $dt[3] > 600
      and print "More than 10 minutes from the last Tomcat startup";
    }' catalina.out