Help for this page
#!/usr/local/bin/perl print "TERM=", $ARGV[0], " export TERM\n";
eval `myterm vt100`