...in addition a variation on this theme:

#!c:/perl/bin/perl.exe

use IO::All;
use strict;
use warnings;
use autodie qw(io);

my $io = io(shift);

for my $line($io->getlines){
    print qq(->$line);
    # and do the stuff
}
[download]

More details here. Regards, Karl