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

sleep int <DATA>;

# vim: set filetype=perl

