use 5.010;
use warnings;
use autodie;

for (qw<CRLF LF CR>) {
    say "Testing with $_ line endings:";
    
    open my $perl, '|-', 'perl';
    select $perl;
    local $\ = $_ eq 'CRLF' ? "\x0d\x0a" : $_  eq 'CR' ? "\x0d" : "\x0a";
    
    print 'use strict;'; 
    print 'use warnings;'; 
    print 'print "This is line ", __LINE__, "\n\n";';
    
    close $perl;
    
    select STDOUT;
}