package My::Mapper;
use Moose;
with 'Hadoop::Mapper';

sub map {
  my ($self, $key, $value, $context) = @_;

  $context->write($key, $value);
}

package main;
use Hadoop::Runner;

my $runner = Hadoop::Runner->new(
  mapper => My::Mapper->new(),
  input_format => 'TextInputFormat',
  output_format => 'TextOutputFormat',
  output_compression => 0);

$runner->run();  # Parse arguments in @ARGV and run the Hadoop job.