#!/usr/bin/perl
use Sim::OPT;

my $TEE;

open($TEE, "| tee ./tofile_.txt")
    or die "Can't pipe to tee: $!";

open(STDOUT, ">&", $TEE)
    or die "Can't redirect STDOUT: $!";

open(STDERR, ">&", $TEE)
    or die "Can't redirect STDERR: $!";

STDOUT->autoflush(1);
STDERR->autoflush(1);

END {
    close STDERR;
    close STDOUT;
    close $TEE if $TEE;
}

opt;
