#!/usr/bin/perl -w
#############################
# beancounter - Money 
#        Counting Interpreter
# Mike Schilli, 2004
# (m@perlmeister.com)
#############################
use strict;

use lib
'/some/where/in/module/land';

use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init(
  $ERROR);

use Plugger;
my $string = join '', <>;

my $plugger = Plugger->new();
$plugger->init();
$plugger->parse($string);