# Program tee
#!/usr/bin/perl -w

die "Usage: tee outfile\n" unless @ARGV == 1;
open(OUT,'>', $ARGV[0]) or die $!;
shift;

while (<>) {
    print OUT;
    print;
}

close (OUT) or die $!;