That won't work if you run it on a Windows system. readline (the diamond operator) automatically removes the '\r' under Windows (ActivePerl anyway, I don't know about cygwin), but puts it back in when you print. So this actually works under windows:

#!/usr/bin/perl -p
BEGIN {binmode STDOUT}
[download]

and this will work under unix:

#!/usr/bin/perl -p
tr/\r//d;
[download]

Or if you just want one script for both, you can combine the two. Or you can use sysread and syswrite to be more efficient :)