my $tclsh = 'tclsh';