Hello,
To check if the file exists, use the -e operator:
if(-e $PROG){
system $PROG;
} else {
require Tk::Dialog;
...
...
}
Hope this helps,,,
Aziz,,,
In article <[EMAIL PROTECTED]>, "Jorge
Goncalvez" <[EMAIL PROTECTED]> wrote:
> Hi , I must implement a alert box in Perl Tk.
>
> A
Hi , I must implement a alert box in Perl Tk.
And I have the following code:
$PROG = "c:/cygwin/usr/sbin/inetd.exe";
system($PROG) or
require Tk::Dialog;
$dialog =$mw-> Dialog( -title => 'INETD ALERT BOX',
-text => "Fail to execute
