#!perl -w
use strict;
use Data::Dumper;

my @output = `./retrieve 2301`;
print Dumper \@output;