# up at the top:
use My::Format::Foo;
use My::Format::Bar;

# Down later
    ######################################
      # Parse the Filetype info
      ######################################
      if ( /^FILETYPE=(.*)\s*$/ ) {
         $self->{'FILETYPE'} = "$1";
         next;
      }


      my $parser_class = 'My::Format::' . ucfirst $self->{'FILETYPE'};
      my $data = $parser_class->parse($_);