#! /usr/bin/perl
use strict;

my $tool_shell = '/bin/toolsetup.pl -p coi -config d4 -t all -ov /nfs/home/akmvx/test -n toptest';
open (my $ts , "|-" , $tool_shell) 
   || die "Failed to open tool setup:\n\tCommand:\t$tool_shell\n\tError:\t$!\n";
print $ts "touch file1\n";
print $ts "$exit_command";