1#!/usr/bin/perl -w 2 3use SWF qw(:ALL); 4 5die "Usage: ".$0." <sourcedir>\n" unless @ARGV; 6$mediadir="$ARGV[0]/../Media"; 7 8$m = SWF::Movie::newSWFMovieWithVersion(7); 9 10$stream = new SWF::SoundStream($mediadir."/video02.flv"); 11 12$sound = new SWF::Sound($stream); 13 14$m->addExport($sound,'video02.flv'); 15 16$m->startSound($sound); 17 18$m->save("test02.swf"); 19