#!/usr/bin/perl # Use Strict! Use Warnings! #use strict; #use warnings; # Libraries use Tk; use Tk::Graph; # Global data #my $data; #my $MW; #my $total_user_job_count; #my $usage; #my $ca; #my $typ; #my $field; # Main program reportg();