#!/usr/bin/perl
use strict;
 
#local SWF-installation
use lib("lib/site_perl");

use SWF qw(:ALL);
SWF::setScale(20);
SWF::setVersion(4);
 
my $s = new SWF::Shape();

my $b = new SWF::Bitmap('area.jpeg');
 
my $f = $s->addFill($b);
$s->setRightFill($f);
 
$s->drawLine(500, 0);
$s->drawLine(0, 500);
$s->drawLine(-500, 0);
$s->drawLine(0, -500);
 
my $m = new SWF::Movie();
$m->setDimension(500, 500);
$m->add($s);
$m->nextFrame();
$m->save('area.swf');