#!/usr/bin/perl
# $Id: w-method 350 2009-04-11 18:21:15Z whynot $

use strict;
use warnings;

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

use IO::Handle;

STDOUT->autoflush(1);

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

$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

