package Problem_42;

use strict;
use warnings;
...
main() unless caller;

sub main
{
    # local timing code
    my $solution = solve();
    # print solution and time taken
}

sub solve
{
    ...
    $return solution;
}
...
1;