open my($log), "<", $path or die "can't open $path: $!";
while (<$log>) {
  ...
}