my $csv = Text::CSV->new;
my $pid = open my $ph, 'dos2unix < inputfilename.txt |';
map $csv -> method($_), <$ph>;
...
close $ph;
waitpid $pid, 0;
...