Help for this page
my $cmd = "perl Perl_Ex_1.pl"; system(qq{start cmd /k "cd c:\PerlExamples && $cmd"});