Help for this page

Select Code to Download

Select or download this
$ perl -pi -e'tr/\015//d' *.{pl,pm,pod,txt}

Select or download this

#!/usr/bin/perl
for (@ARGV) {
    open my $fh, '+>>', $_ or warn $! and next;
...
        print $_, $/;
    }
}