#! /bin/tclkit package require tuapi ::tuapi::ifconfig eth0 address 10.0.2.15 netmask 255.255.255.0 flags {BROADCAST MULTICAST UP} ::tuapi::syscall::route add 0.0.0.0 0.0.0.0 gateway 10.0.2.2 dev eth0 file mkdir /etc set fd [open /etc/resolv.conf w] puts $fd "nameserver 10.0.2.3" close $fd