#!/usr/bin/perl -w

use strict;
use warnings;

my $path = "/home/john/test/test a folder";

my @arr = ("echo", "\$PATH");
system (@arr);

my @script = ("env", "PATH=\"foo\"", "bash", "$path/test.sh");
system (@script);