See perldoc -f open for playing with STDOUT and its friends.

# save STDOUT
open my $stdout, '>&STDOUT';

# close it
open STDOUT, '>', undef;

# don't display system's STDOUT (but it's STDERR!)
system '...';

# reopen STDOUT
open STDOUT, '>&', $stdout;
[download]

--Frank