Select Code to Download

#! /usr/bin/perl
use strict;
...
   || die "Failed to open tool setup:\n\tCommand:\t$tool_shell\n\tErro
+r:\t$!\n";
print $ts "touch file1\n";
print $ts "$exit_command";