using a message box - some questions.

From: Paul Spitalny (no_spam_at_no_spam.com)
Date: 01/28/04


Date: Wed, 28 Jan 2004 13:05:06 -0800

Hi,
I want to use the message box. Trouble is, when I call the perl program
the command window (cmd.exe) also pops-up, in addition to the msg box.
See code below:

#! /usr/bin/perl
use Win32;
# display a message box with an exclamation mark and an 'Ok' button
sub MsgBox {
        my ($caption, $message, $icon_buttons) = @_;
        my @return = qw/- Ok Cancel Abort Retry Ignore Yes No/;
        my $result = Win32::MsgBox($message, $icon_buttons, $caption);
        return $return[$result];
                      }
#$thing = $ARGV[0];
$fred='oh baby';
MsgBox("$thing", "$fred", 1);
# the "1" , above, means OK and cancel buttons

So, my question is, how do I run the perl script without the Windows
cmd.com window popping up??

Thanks !!

Paul