use FileHandle;
   use Carp qw (cluck croak);

   my $LOG_FH = new FileHandle( "somefile", "w" );
   my $fileno = fileno $LOG_FH;
   open STDERR, ">&$fileno" or croak "Can't dup STDERR.";

   cluck "Testing the output of Carp commands.";