#!perl

require "./xbase.pl";

$xopen = &xlib::x_open_display($ENV{"DISPLAY"});
die $xlib::status if not defined $xopen;

print &xlib::x_unmapwindow($ARGV[0]),"\n";
sleep 5;
print &xlib::x_mapwindow($ARGV[0]),"\n";

close $xopen;
