#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = MainWindow->new;

#centers window
CenterWindow($mw, 300, 200);
MainLoop;

sub CenterWindow {
	my($window, $width, $height) = @_;
	#$window->idletasks;
	$width  = $window->reqwidth  unless $width;
	$height = $window->reqheight unless $height;

	my $x = int(($window->screenwidth  / 2) - ($width  / 2));
	my $y = int(($window->screenheight / 2) - ($height / 2));

	$window->geometry("=${width}x${height}+${x}+${y}");
}

##</code><code>##

...Temp/ccARbaaa.o(.text+0x44):start.c: undefined reference to `_imp__win32_malloc'
...Temp/ccARbaaa.o(.text+0x35a):start.c: undefined reference to `_imp__win32_malloc'
...Temp/ccARbaaa.o(.text+0x435):start.c: undefined reference to `_imp__win32_malloc'
...Temp/ccARbaaa.o(.text+0x4bf):start.c: undefined reference to `_imp__RunPerl'
...Temp/ccARbaaa.o(.text+0x4d5):start.c: undefined reference to `imp(wchar_t, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, float, long double,...)(...)'
collect2: ld returned 1 exit status

Execution terminated