#!/usr/bin/perl
use Sim::OPT;
open(my $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);
opt;
