#!/usr/bin/perl
# $Id: y-method 429 2010-12-01 19:41:18Z whynot $

use strict;
use warnings;

package main;
our $VERSION = q|0.0.4|;

use IO::Handle;

STDOUT->autoflush(1);

my $fn = <DATA>;
chomp $fn;
open STDERR, q|>|, $fn or
  die qq|open (STDERR) failed: $!|;

while(<DATA>)             {
    chomp;
    print STDERR qq|[$_]\n|;
    print STDOUT qq|$_\n|; };

# vim: set filetype=perl

