package MyTime
@ISA = qw()

sub new
my ($module) = @_;
return $this;

sub DESTROY
my $this = shift;
	$this->SUPER::DESTROY(

sub GetTime
my ($this, $SubtractStartTime) = @_;
return $passed * 0.001 if($SubtractStartTime);
return $now * 0.001;
return ($now - $this->{StartGetTickCount} * 0.001) if($SubtractStartTime);
return $now;
return time() - $this->{StartTime} if($SubtractStartTime);
return time();