#!/usr/local/bin/perl
# File: useTeeFile

use TeeFile; 

open (teeFH, ">tee.out") or die;
open (teeOFH, ">tee.original") or die;

tie *FH,'TeeFile',\*teeFH,\*teeOFH;

print "Enter a line ('q' to quit): ";
while (($inline = <STDIN>) !~ /^q|Q/) {
  print  FH $inline;
  print "Enter a line ('q' to quit): ";
}

close (teeFH);
close (teeOFH);
