#!/usr/bin/perl -w

use strict;

use IO::Tee;

open FH,">somefile" or die "error opening $!";
my $tee=IO::Tee->new(\*STDOUT,\*FH);
select $tee;
print "foo\n";
print "bar\n";

close FH;