use File::Tail;
my $ref=tie *DIAG,"File::Tail",(name=>$name);
while (<DIAG>) {
  # your while (1) loop processing goes here
}