use warnings;
use strict;
use Win32;

my $ret = Win32::LoadLibrary('C:\sisyphusion\PLplot_broken.dll');
print "ret=$ret glr=".Win32::GetLastError()."\n";

$ret = Win32::LoadLibrary('C:\sisyphusion\PLplot_ok.dll');
print "ret=$ret glr=".Win32::GetLastError()."\n";