Select Code to Download

use Tk;
use Tk::Graph;
...
})->pack;

MainLoop;

sub setdisplay {
   $typ = shift;
   $ca->configure(-type => $typ);
   $ca->redraw;
}