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