Select Code to Download

# using Test::More...

...
is($proc->data($some_filename),"data for filename");

$proc->close();

my $proc = Data::Processor->( file => "some filename");
# or                          handle => \*DATA
...
  $proc->write( $some_filename, file => $name      );
# or                            handle => \*STDOUT
}