Select Code to Download

 -command => sub { 
                      #$top->withdraw;
...
                          $top->MapWindow;
                      
                      });

#!/usr/bin/perl
use warnings;
...
    @deltaxy = ( $top->pointerx - $top->x, $top->pointery - $top->y );
}