#!/usr/bin/perl

use strict;
use warnings;
use Parallel::Runner;

my $file1 = '/root/Desktop/files/file1';
my $file2 = '/root/Desktop/files/file2';

my $runner = Parallel::Runner->new(2);
$runner->run( sub {
    open(FILE1, '<', $file1) 
    or die "Cannot open file $file1\n";
    if (<FILE1>) {
        print "File open\n";
    }
    else {
        print "File is not open\n";
    }
});
$runner->run( sub {
    open(FILE2, '<', $file2) 
    or die "Cannot open file $file2\n";
    if (<FILE2>) {
        print "File open\n";
    }
    else {
        print "File is not open\n";
    }
});       
$runner->finish;