People are probably more familiar with

local $/ = 'modified input record separator';
[download]

and yet another way to skin this cat is to use its brother:

local $\ = chr(10) . chr(13);
[download]