my @cmd = ""; push (@cmd , $prog_args , $fullfile2 , "/" ); my $cmd2 = join " " , @cmd ; $text -> delete ('1.0' , 'end' ); $text -> insert ('end' , "\n" ); $text -> insert ('end' , "THIS OPERATION SHOULD TAKE 5 min. to 15 min. \n ", 'highlite' ); my $exit_status = system( $cmd2 ); print "\$exit_status at L1447 =: $exit_status\n"; if ( 0 == $exit_status ) { $text -> insert ('end' , "\n\n" ); $text -> insert ('end' , "DONE! \n", 'highlite' ); }