#!/usr/bin/env perl
use strict;
use warnings;
use Carp;
$SIG{__DIE__} = sub { print STDERR $_ for (@_); };
binmode STDERR, ":encoding(koi8-r)";
sub mysub {	croak; }
mysub();
1;