use warnings;
use strict;

# altes Handle sichern
open my $old_stderr, ">&STDERR";

# STDERR ins Nirwana weisen
open(STDERR, '>', 'NUL') or die $!;
warn 'invisible!';

# ...

# STDERR wieder zurücksetzen
open STDERR, '>&', $old_stderr;
warn 'STDERR resurrected!';