use IO::Tee;
use strict;

my $tee = new IO::Tee(\*STDOUT, ">outfile.out");

#Test normal output
print $tee "normal data\n";

#Test system commands
my $cmdout = `dir /w`;
print $tee $cmdout."\n";

#Check input questions work
print $tee "Enter some data\n";
my $input = <>;
print $tee $input;

#Check stderr also goes to the file + screen.
warn "Warning here\n";