1#!/usr/bin/perl -w
2
3use SWF qw(:ALL);
4
5$m = SWF::Movie::newSWFMovieWithVersion(8);
6
7$character1 = $m->importCharacter("test.swf", "test");
8
9$i1 = $m->add($character1);
10$i1->setDepth(1);
11
12$m->nextFrame(); # end of frame 1
13
14$m->save("test02.swf");
15