sub time_bin
	{
	# this just assumes an hour, such as 19.
	# adjust for whatever time bin you'd like to use
	sprintf "%02d:00", (localtime( $_[0] ) )[2];
	}
	
sub date
	{	
	my @times = localtime( $_[0] );
	
	$times[5] += 1900;
	$times[4] += 1;
	
	# join on / and make two digits for easy sorting
	return join "/", map { sprintf "%02d", $_ } @times[3,4,5];
	}

sub print_header
	{
print <<"HERE";

Date: $_[0]
Time                     Queue      Queued   Running
------------------------------------------------------
HERE
	}