#Returns the Zulu data type
#Parameters: Number of minutes time will be offset - 0 for now 	
sub getBinary_Zulu 
{
my $offset = $_[0];	
my $msec = 0;
my $epoch_time = time();
my $offset_time = $epoch_time + ($offset * 60);

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($offset_time);
$year += 1900;
print "$msec,$sec,$min,$hour,$yday,$year \n";	#debugging only
return pack("I6", $msec,$sec,$min,$hour,$yday,$year);		
}#end getBinary_Zulu