use strict;
use warnings;


use Project::Euler::Problem::P001;
my $problem1 = Project::Euler::Problem::P001->new;

$problem1->solve;
print $problem1->status;