Help for this page
Tk::DialogWrapper('fileselect',$cmd, %args);<br>
my $w = delete $args{'-parent'};<br>
$w->destroy if $created;<br>
my ($method,$kind,%args) = @_;<br>