Stuff

	sub checkspace()
	{
		print LOG "\tInside the disk space check \n";
		my $diskfree=`df /usr`;
		my @disk = split(/ /,$diskfree);
		print $disk[1];
		if ($disk[50] > 524288 | $disk[51] > 524288 | $disk[52] > 524288 | $disk[48] > 524288 | $disk[49] > 524288)
		{
			return 'true';
		}
		else
		{
			return 'false';
		}
	}