#!/usr/bin/perl -w
use Local::TeeOutput;
use IO::File;
use strict;

local *LOG;
open (LOG, ">>test.out");
openTee(*STDOUT, *STDOUT, *LOG);
print "One\n";
closeTee(*STDOUT);


my $fh = IO::File->new(">>test.out");
openTee(*STDOUT, *STDOUT, $fh);
print "Two\n";
closeTee(*STDOUT);