#!/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);

##</code><code>##

Cannot convert scalar 0x8130af4 to an object of type Cairo::Surface at cairo_vs_swf.pl line 10.