#!/usr/bin/perl

package Tie::Handle::Duplicate;

  use strict;
  use warnings;

  use FileHandle;

  sub TIEHANDLE {
      my $class = shift;
      my $fname = shift;

      die "Second argument must be a filename!\n"
          unless defined $fname or $fname eq '';

      my $self = {};

      my $fh = new FileHandle;

      if ( $fh->open($fname, '>>') ) {
          $self->{'fh'} = $fh;
      } else {
          die "Can't open file in write mode: $!\n"; }

      return bless $self, $class;
  }
  
  sub PRINT {
      my $self = shift;
      $self->{'fh'}->print( @_ );
      print STDOUT @_;
  }

  sub PRINTF {
      my $self = shift;
      $self->{'fh'}->printf( @_ );
      printf STDOUT @_;
  }

package main;

  use strict;
  use warnings;

  tie *DUPOUT, 'Tie::Handle::Duplicate', $ENV{'HOME'} . '/tmp/logfile';

  select DUPOUT;

  printf "%s\n", 'hiho';

  sub DESTROY { $_[0]->{'fh'}->close; }