>perl tkprogressbar2.pl

Use of uninitialized value in numeric ge (>=) at tkprogressbar2.pl line 31.
WARNING: $pid{ex1}{val} NOT FOUND!!
("ex1", { as => "temp", val => undef })

>perl tkprogressbar2.pl

>perl tkprogressbar2.pl

>perl tkprogressbar2.pl

>perl tkprogressbar2.pl

Use of uninitialized value in numeric ge (>=) at tkprogressbar2.pl line 31.
WARNING: $pid{ex1}{val} NOT FOUND!!
("ex1", { as => "temp", val => undef })