sub FormatTime {
##	Format Time Function	##
##		Takes Arguments:
##		$time which is the integer value returned by the time function
##		Returns:
##		a formatted time date string

	my $time = shift;
	(my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my $yday, my $isdst) = localtime($time);
	my $show_min = ":";
	$show_min = ":0" if $min<10;
	$mon++;
	$year += 1900;
	return "$hour$show_min$min $mon/$mday/$year";
}