TODO: {
    $::TODO = 'GH 12345';

    my $program = '...';
    my $options = {};  # maybe `stderr => 'devnull'`?
    my $result = fresh_perl( $program, $options );
    # look at $result, which is the output of your program
    ok($?, 0, 'No assertion failure');
}