[perl-win32-gui-users] application error referenced null pointer

[[EMAIL PROTECTED]]

Hi

I'm trying to run a basic gui, but perl abort the script with an error 
"instruction at 0x.... referenced memory 0x0"

Perl version = ActiveState 5.6.1 Build 630
OS = W2K SP2
Win32::GUI = 0.558

I have run it using the debugger and it stops working at the STORE with 
execution of the AddLabel = foreground [255,0,0]

Script: 
#!perl
use Win32::GUI;

$text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world";

    $main = Win32::GUI::Window->new(
                -name => 'Main',
                -text => 'Perl',
        );
    $font = Win32::GUI::Font->new(
                -name => "Comic Sans MS", 
                -size => 24,
        );
    $label = $main->AddLabel(
                -text => $text,
                -font => $font,
                -foreground => [255, 0, 0],
        );
    $ncw = $main->Width() -  $main->ScaleWidth();
    $nch = $main->Height() - $main->ScaleHeight();
    $w = $label->Width()  + $ncw;
    $h = $label->Height() + $nch;
    $desk = Win32::GUI::GetDesktopWindow();
    $dw = Win32::GUI::Width($desk);
    $dh = Win32::GUI::Height($desk);
    $x = ($dw - $w) / 2;
    $y = ($dh - $h) / 2;
    $main->Change(-minsize => [$w, $h]);
    $main->Move($x, $y);
    $main->Show();
    Win32::GUI::Dialog();
    sub Main_Terminate {
        -1;
    }

sub Main_Resize {
        my $w = $main->ScaleWidth();
        my $h = $main->ScaleHeight();
        my $lw = $label->Width();
        my $lh = $label->Height();
                $label->Left(int(($w - $lw) / 2));
                $label->Top(int(($h - $lh) / 2));
}