Thats a pretty big request considering the code you posted. It would take me all day to properly write and test such a script. This is not a script writing service.

My advice, is to break your program down into smaller parts, and get each working separately, then work on combining them. If you want to do something every 3 seconds, use a timer.

use Tk;
my $timer = $mw->repeat( 3000, \&my_sub);
[download]