#!/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";
