#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use Parallel::Simple qw(prun);

sub myFooSub {
    say "$$ foo 'clear bgp'";
}

sub myBarSub {
    say "$$ bar 'clear ospf'";
}

# style 2: named code blocks (like the Benchmark module)
prun(
    foo => \&myFooSub,
    bar => \&myBarSub,
    ) or die( Parallel::Simple::errplus()
);

__END__

$ perl test.pl
21120 foo 'clear bgp'
21121 bar 'clear ospf'