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