#!/usr/bin/perl

use Processor;
use Processor::SomeSubClass;

my $p = Processor::SomeSubClass->new();

$p->init;
while (<>) {
  print $p->process( $_ );
}
$p->finish;