#!/usr/bin/perl
# $Id: x-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( <STDIN> ) {                chomp; print STDERR qq|{$_}\n|; $_ or last }

sleep int <DATA>;

# vim: set filetype=perl
