use Win32; Win32::MsgBox("How are you?"); #### sub displayObj { my $obj = shift(); Win32::MsgBox("Keys: " . join(', ', map { "$_ => $obj->{$_}" } sort keys %$obj )); } ... displayObj( $window); displayObj( $window->{document}); ... #### Select a site to browse. --select one-- North Carolina A and T State University University of North Carolina at Greensboro
## sub displayObj { my $obj = shift(); Win32::MsgBox("Keys: " . join(', ', map { "$_ => $obj->{$_}" } sort keys %$obj )); } ... displayObj( $window); displayObj( $window->{document}); ... ##
## Select a site to browse. --select one-- North Carolina A and T State University University of North Carolina at Greensboro
Select a site to browse.