my $hlist = $main -> HList(-sizecmd => sub{&resize});
...

sub resize {
...
}