perldoc -f open and search for redirect...

in short using a un*x, but read the above mentioned part for the complete story:

open STDOUT, '>', "/dev/null";
open STDERR, '>&STDOUT';
[download]

regards,
tomte