geometry does it:

$main->geometry ('500x500');
[download]

but I have to give a height as well. Can I change just the width?

Yes, by:

my $height = $main->reqheight; # or $main->height
$main->geometry ('500x' . $height);
[download]