use strict; use warnings; use Win32; use Getopt::Std; my %opts; getopts("h", \%opts); help() if $opts{h}; sub help { Win32::MsgBox("Help Content", 32, "Help"); exit; }