if ($resp =~ /^y/i) {
    $log = IO::Tee -> new(">stdout.txt", \*STDOUT);
} else {
    $log = *STDOUT{IO};
}