# -- perl --

$SH = @ARGV[0];
$bindir = @ARGV[1];

$Contents = "#! $SH
alias	x='$bindir/x'
alias	xc='$bindir/xc'
alias	oc='$bindir/oc'
alias	x10='$bindir/x10'
alias	x20='$bindir/x20'
alias	x30='$bindir/x30'
alias	x40='$bindir/x40'
alias	x47='$bindir/x47'
alias	x56='$bindir/x56'
alias	x62='$bindir/x62'
alias	x80='$bindir/x80'
alias	x80big='$bindir/x80big'
alias	xterm30='$bindir/xterm30'
alias	xterm40='$bindir/xterm40'
alias	ls='$bindir/ls.pl'
alias	rwho='$bindir/rwho.pl'
alias	w='$bindir/w.pl'
alias	df='$bindir/df.pl'
alias	du='$bindir/du.pl'
alias	ps='$bindir/ps.pl'
alias	route='$bindir/route.pl -n'
alias	r='$bindir/route.pl -n'
alias	ifconfig='$bindir/ifconfig.pl'
alias   i='$bindir/ifconfig.pl'";

print $Contents;