#!/opt/perl5/bin/perl
# locker.pl
use strict;
use Logger::Simple;

my $L=Logger::Simple->new(LOG=>"file.txt",CARP=>'1');

for(1..10){
  $L->write("Writing");}  

#!/opt/perl5/bin/perl -w
# writer.pl
use strict;
use Logger::Simple;

my $L=Logger::Simple->new(LOG=>"file.txt",CARP=>'1')

for(1..5){
  $L->write("Getting through?");
}

#!/bin/sh
# runner.sh

./locker.pl &
./writer.pl