need quick/simple perl help!

[Douglas J. Hunley]

I need someone to modify the code attached to print to a logfile 
(/var/log/code_red) a duplicate of everything it currents prints to stdout. 
Any takers? Thanks!
-- 
Douglas J. Hunley ([EMAIL PROTECTED]) - Linux User #174778 
Admin: http://hunley.homeip.net/        Admin: http://linux.nf/ 
Brainbench Linux Administration Certified

~~ Now offering Linux admin services for the home user ~~

printk("ufs_read_super: fucking Sun blows me\n");
        2.0.38 /usr/src/linux/fs/ufs/ufs_super.c

default.txt