# script
account.pl

#!/usr/bin/perl


use strict;
use warnings;
use Data::Dumper;

use accounts;

my $newdata = results();

print Dumper $newdata;