Re^5: How to enter a filename in each line

#!/usr/bin/perl
use warnings;
use strict;

$^I = '.BAK';
while ( <> ) {
    s/$/,$ARGV/;
    print;
    }

__END__
[download]

Comment on Re^5: How to enter a filename in each line Download Code