open my($log), "<", $path or die "can't open $path: $!"; while (<$log>) { ... } [download]
In reply to Re^3: creating hashes recursively by japhy in thread hashes recursively by perumal