#!/usr/bin/perl
system("/sbin/insmod X10.o");# ||die "insmod failed\n" ;
system("rm -f /dev/X10_[0-9]");
open (DEVICE,"/proc/devices")||die "Failed to open /proc/devices \n" ;
while(<DEVICE>)
{
	if (/(^[0-9]+) X10/)
	{
		print "X10 major number = $1 \n" ;
		system("mknod --mode=666 /dev/X10_0 c $1 0");
		system("mknod --mode=666 /dev/X10_1 c $1 1");
		system("mknod --mode=666 /dev/X10_2 c $1 2");
		system("mknod --mode=666 /dev/X10_3 c $1 3");
		system("mknod --mode=666 /dev/X10_4 c $1 4");
		system("mknod --mode=666 /dev/X10_5 c $1 5");
		system("mknod --mode=666 /dev/X10_6 c $1 6");
		system("mknod --mode=666 /dev/X10_7 c $1 7");
		system("mknod --mode=666 /dev/X10_8 c $1 8");
		}
	}
close(DEVICE) ;
