system('perl', 'test.pl', $var1, $var2.'\\'.$var3);

##</code><code>##

system(
   'perl',
   $ENV{HOME}.'\path\to\test.pl', 
   $var1,
   qq|$var2\\$var3|,
);