Select Code to Download

   my $data = {
        Sleep   => 51,
...
   # or ...

   $ca->set($data);        # set data

    $data = {
        $queue => $usage
...

    $ca = $MW->Graph(-type => 'BARS', -ylabel => 'percentage', -xlabel
+ => 'queue');
    $ca->pack(-expand => 1, -fill => 'both');

    $data->{$queue} = $usage;