#!/usr/bin/perl -w 

use strict;

use Cairo;
use SWF ':ALL';
use SWF::Constants ':Button';

my $surface = Cairo::ImageSurface->create('argb32', 10, 10); 
my $context = Cairo::Context->create($surface);