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;