#!/usr/bin/perl
use strict;
use warnings;
use Net::Amazon::MechanicalTurk;

#
# This sample shows how to download results for the HITs
# contained in a success file.
#

my $mturk = Net::Amazon::MechanicalTurk->new;

$mturk->retrieveResults(
    input    => "loadhits-success.csv",
    output   => "loadhits-results.csv",
    progress => \*STDOUT
);