sub create_parallel 
{
  ...
  # code here to create files using fork
}

sub create_loop
{
  ...
  # code here to create files in a simple for loop
} 
cmpthese(-5,
         parallel => \&create_parallel,
         loop     => \&create_loop,
        );