1 #!/usr/bin/perl
  2 
  3 use strict;
  4 use warnings;
  5 
  6 system('tar -xvf test.tar');
  7 
  8 my $child_pid = fork;
  9 
 10 if (!defined $child_pid){
 11         print "couldn't fork \n";
 12 }
 13 
 14 else {
 15         print "in child , now executing \n";
 16 exec('cd utpsm_run_automation && perl utpsm_lts_server.pl') 
 17         or die "can't run server.pl in sabkuch child \n";
 18 }
 19 
 20 exit;