Select Code to Download

package Foo::Parse;

...

my $fp = Foo::Parse::Splitter->new('FooParser');
$fp->parse($_) while <>;

my $fp;
$fp = Foo::Parse->new('FooParser',
...
      $fp->warn("something wrong!");
    split /,/;
  } );