my $cmd = "cat /pathtomylogs/2013/12/06/prod/prodlogs/`date +%H`";

open File, "$cmd |";

while (<File>)
{