Select Code to Download

$widget -> geometry("wxh+x+y")

...
$top ->  geometry("${w}x$h+20+20")

# if you specify -0-0 for position, you anchor in the lower right corn
+er

#!/usr/bin/perl
use warnings;
...
#difficult. You have to make sure that you fork off the process which
#does not have a created a MainWindow itself. This will work fine: