#!/usr/bin/perl
use warnings;
use strict;
use Parallel::MPI qw(:all);


MPI_Init() or die("Error: $!\n");
MPI_Finalize();