<div>
What OS will the script be running on?
</div>


<div>
#!/usr/bin/perl<br />
use strict;<br />
use Tk;<br />
use Tk::Dialog;<br />
<br />
<br />
my $mw = MainWindow-&gt;new(); &nbsp; #Create object<br />
$mw-&gt;withdraw(); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;#Don't display main window<br />
<br />
my $response = $mw-&gt;messageBox(<br />
&nbsp;-icon =&gt; 'question',<br />
&nbsp;-message =&gt; 'Hello World!',<br />
&nbsp;-title =&gt; 'My title',<br />
&nbsp;-type =&gt; 'AbortRetryIgnore',<br />
);<br />
<br />
print &quot;response=$response\n&quot;;<br />

</div>


#!/usr/bin/perl
use strict;
use Tk;
use Tk::Dialog;


my $mw = MainWindow->new();   #Create object
$mw->withdraw();              #Don't display main window

my $response = $mw->messageBox(
 -icon => 'question',
 -message => 'Hello World!',
 -title => 'My title',
 -type => 'AbortRetryIgnore',
);

print "response=$response\n";


<div>
If you will only be on Win32, there is a win32 only module. &nbsp;The above will work on windows or unix.
</div>


If you will only be on Win32, there is a win32 only module.  The above will work on windows or unix.

<div>
<div class="content wysiwyg-content">
Hi..<br />
<br />
I am working on ne script....that will create a .csv file as a output and copy that file to a network drive.<br />
If the drive is not there...it mount that drive and copy that file...<br />
<br />
I want to put something in there....that will pop-up the error message if the files are not copied due to some reason and then continue with the program.<br />
As this script is called by another program, if I use die command it will stop there...instead I want to show error-message pop-up windiw....so user know that files are not copied...<br />
<br />
Please advise....
</div>
</div>


Hi..

I am working on ne script....that will create a .csv file as a output and copy that file to a network drive.
If the drive is not there...it mount that drive and copy that file...

I want to put something in there....that will pop-up the error message if the files are not copied due to some reason and then continue with the program.
As this script is called by another program, if I use die command it will stop there...instead I want to show error-message pop-up windiw....so user know that files are not copied...

Please advise....

How to Show Error Message pop-up window in Perl?

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.