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