#!/usr/local/bin/perl
print "TERM=", $ARGV[0], " export TERM\n";

##</code><code>##

eval `myterm vt100`