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