#!/usr/bin/perl
# $Id: w-method 431 2010-12-05 01:07:42Z whynot $

use strict;
use warnings;

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

use IO::Handle;

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

STDOUT->autoflush(1);
STDERR->autoflush( 1 );

$SIG{$_} = sub { my $sig = shift @_; warn qq|{{{$sig}}}\n|; exit 0; }
  foreach grep -1 == index($_, '_'), keys %SIG;

print <<'END_OF_CAPS';
100 Capabilities
Version: 1.0
Single-Instance: true
Local-Only: true
Send-Config: true

END_OF_CAPS

1 while(<STDIN>);

# vim: set filetype=perl

