#===================================================================
# FILE: tee.pl
#===================================================================
$filename=$ARGV[0];

open(OUT,">$filename");
while(<STDIN>){
        print;
        print OUT;
}