use SDL::Surface;
my $replace = SDL::Surface->new(-width => 1, -height => 1, -depth => 32);
print "Rmask: " . $replace->Rmask . "\n";
print "Gmask: " . $replace->Gmask . "\n";
print "Bmask: " . $replace->Bmask . "\n";
print "Amask: " . $replace->Amask . "\n";