#!/usr/bin/perl

`tar zxvf /opt/tbupddlx/jre.tgz -C /opt/tbupddlx`;

opendir DIR,"/home" or die;
while($file = readdir(DIR)) {
	 `cp /opt/tbupddlx/Dashboard /home/$file/Desktop` if -d "/home/$file/Desktop";
	`chown $file /home/$file/Desktop/Dashboard` if -f "/home/$file/Desktop/Dashboard";
	print "done";
}
