!/usr/bin/perl -l

use strict;
use warnings;
use IPC::System::Simple qw(capturex systemx);

my $PATH  = $ENV{'PATH'};
my $SHELL = $ENV{'SHELL'};

my $path = '/root/Desktop/test a folder/this script.sh';
my @arr1 = ( "printenv", "PATH" );
capturex(@arr1);

my @arr2 = ( "echo", "$PATH" );
systemx(@arr2);

my @arr3 = ("$SHELL", "$path");
my @script = system(@arr3);