1#!/usr/bin/perl -w
2# Generated by swftoperl converter included with ming. Have fun.
3
4# Change this to your needs. If you installed perl-ming global you don't need this.
5#use lib("/home/peter/mystuff/lib/site_perl");
6
7# We import all because our converter is not so clever to select only needed. ;-)
8use SWF qw(:ALL);
9# Just copy from a sample, needed to use Constants like SWFFILL_RADIAL_GRADIENT
10use SWF::Constants qw(:Text :Button :DisplayItem :Fill);
11
12$m = SWF::Movie::newSWFMovieWithVersion(8);
13
14SWF::setScale(1.0);
15#Unknown block type 69
16
17# SWF_SCRIPTLIMITS
18$m->setScriptLimits(10, 11);
19
20# SWF_SHOWFRAME
21$m->nextFrame(); # end of frame 1
22
23# SWF_END
24
25$m->save("test01.swf");
26