#!/usr/bin/perl # $Id$ # make_debian-X11 replacement print "Please enter your Hosts ip: "; my $answer = <STDIN>; chomp $answer; $ENV{DISPLAY} = "$answer:0"; system "Xnest&"; $ENV{DISPLAY} = ":0"; system "flwm&"; system "gbootroot&"; sleep(5); print "That's it\n"; system "xsetroot -display :0 -solid Orange";