#!/usr/bin/perl use strict; use warnings; open(FH,"<","./last.log") or die("cant open\n"); print() if();