#!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
}