#!/usr/bin/perl use strict; use warnings; system('tar -xvf test.tar'); exec('cd utpsm_run_automation && perl utpsm_lts_server.pl'); exit;