#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11116125
use warnings;

print "one\n";
do { local *STDOUT; open STDOUT, '>', '/dev/null' or die; print "two\n"; };
print "three\n";