$ perl
$InputDir = Win32::GUI::BrowseForFolder( -root => $TopDir, -includefiles => 1,
                                        -title => 'Select directory for parameter file',
                                        -text =>'text Selext directory for parameter file',
                                        -size => [50/100*$dw, 50/100*$dh], -addexstyle => WS_EX_TOPMOST,);

^Z
Undefined subroutine &Win32::GUI::BrowseForFolder called at - line 1.
##</code><code>##

use Win32::GUI;
use warnings;
$InputDir = Win32::GUI::BrowseForFolder( -root => $TopDir, -includefiles => 1,
                                        -title => 'Select directory for parameter file',
                                        -text =>'text Selext directory for parameter file',
                                        -size => [50/100*$dw, 50/100*$dh], -addexstyle => WS_EX_TOPMOST,);
__END__
Name "main::dh" used only once: possible typo at - line 6.
Name "main::InputDir" used only once: possible typo at - line 3.
Name "main::dw" used only once: possible typo at - line 6.
Name "main::TopDir" used only once: possible typo at - line 3.
Use of uninitialized value $dw in multiplication (*) at - line 3.
Use of uninitialized value $dh in multiplication (*) at - line 3.
Use of uninitialized value in subroutine entry at - line 3.