Or even simpler (and faster):

use File::Copy;
copy $filename, \*STDOUT;
[download]

-- Randal L. Schwartz, Perl hacker