#!/usr/bin/perl
# $Id: z-method 496 2014-02-26 17:39:18Z whynot $
# Copyright 2009, 2010, 2014 Eric Pozharski <whynot@pozharski.name>
# GNU GPLv3
# AS-IS, NO-WARRANTY, HOPE-TO-BE-USEFUL

use strict;
use warnings;

package main;
use version 0.77; our $VERSION = version->declare( v0.1.1 );

use IO::Handle;

STDOUT->autoflush( 1 );

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

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

while( <STDIN> )                            { chomp; print STDERR qq|{$_}\n| }

# vim: set filetype=perl
