#!/usr/bin/perl
use Tk;

my $mw = tkinit;
$mw->geometry('200x200+200+200');
#$mw->overrideredirect(1);

$mw->bind('<ButtonPress-1>', sub{ 
   my $xe = $mw->XEvent;
   $wdragiinfo{xoff} = $mw->pointerx - $mw->rootx;
   $wdragiinfo{yoff} = $mw->pointery - $mw->rooty;
	});

		
$mw->bind('<B1-Motion>', sub{ 
  my ($x,$y);
  $x=$mw->pointerx-$wdragiinfo{xoff};
  $y=$mw->pointery-$wdragiinfo{yoff};
		
  $mw->geometry($mw->width."x".$mw->height."+$x+$y");
	 	});

MainLoop;