{
  my $http_code;
  my $url;
  my @edate;

  $SIG{'__WARN__'} = sub { ... };

  while (my $line = <LOG>) {
    ...
  }
}