1#!/usr/bin/perl -w 2 3use SWF qw(:ALL); 4 5$m = SWF::Movie::newSWFMovieWithVersion(8); 6 7$shape1 = new SWF::Shape(); 8$shape2 = new SWF::Shape(); 9 10$shape2->useVersion(4); 11 12$m->add($shape1); 13$m->add($shape2); 14 15$m->save("test01.swf"); 16