http://www.perlmonks.org?node_id=922179


in reply to A way to avoid repeated conditional loops

use autodie;
open my $file, '<', $filepath;

process_file_header( $file );
proress_file_remainder( $file );

[download]

As Occam said: Entia non sunt multiplicanda praeter necessitatem.

In Section Seekers of Perl Wisdom