my $time_ = localtime;
my $date = ParseDate($time_);
$date =~ s/://g;
my $unix_date = UnixDate($date, @d_format);
$unix_date =~ s/ //g;
$ash_{date} = $unix_date;
$ash_{temp} = gct();

##</code><code>##


my %cash = build_comp_hash();
push @aoh, { %cash };
graphable_arrays();


##</code><code>##

@xdata = ();
@ydata = ();
my($i, $datum);
for $i (0 .. $#aoh){
  for $datum (keys %{ $aoh[$i] }){
	if($datum =~ m/date/){   
	 push @xdata, $aoh[$i]{$datum};
	}
	elsif($datum =~ m/temp/){
	 push @ydata, $aoh[$i]{$datum};
    }
	else{}
   }

##</code><code>##

my @plot_title = ("CryoCooler Temperature Data", -5);	
if(!defined $gwidth){$gwidth = '700';}
if(!defined $gheight){$gheight = '500';}
$mw->destroy if Tk::Exists($mw);
$mw = MainWindow->new;
$mw -> title('Thoth -- Plot');
my $pw_plot = $mw->PlotPTk(-width=>$gwidth, -height=>$gheight, -xlabel=> "Time",
 						   -ylabel=>"Temperature", -autoScaleY => "On",
						   -scale => "@scale_vals",
						   -plotTitle => \@plot_title)->grid;

my $ds = DataSet->new(-yData=>\@ydata, -xData=>\@xdata, -name=>"Cryocooler");
$pw_plot->plot(-dataSet=>$ds);
MainLoop;