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