How to use the dialog utility from Tcl:
package require Tcl 8.5
set temp [file tempfile]
exec dialog --inputbox "What's your name?" 0 0 <@ stdin >@ stdout 2>@ $temp
seek $temp 0
exec dialog --msgbox "Hello, [read $temp]" 0 0 <@ stdin >@ stdout
seek $temp 0
chan truncate $temp
exec dialog --inputbox "What's up?" 0 0 <@ stdin >@ stdout 2>@ $temp
seek $temp 0
puts "[read $temp] is cool!"
How to use dialog from Perl:
use warnings;
use strict;
use IPC::Open3 'open3';
use Symbol 'gensym';
system "dialog", "--msgbox", "Hello, world!", "0", "0";
my $pid = open3('<&STDIN', '>&STDOUT', my $dlgout = gensym,
"dialog", "--inputbox", "What's your name?", "0", "0");
waitpid($pid, 0);
print "Nice to meet you, ", <$dlgout>, "!\n";
close $dlgout;the site for things related to the awk language