Yeah, that's a whole day's work.

Maybe not for you or me. But for someone who needs half a day to type

my $test = do {local $/; <HANDLE>};
[download]

it could easily be.