1#!/usr/bin/perl -w 2 3use SWF qw(:ALL); 4 5die "Usage: ".$0." <sourcedir>\n" unless @ARGV; 6$mediadir="$ARGV[0]/../Media"; 7 8use SWF qw(:ALL); 9 10$m = SWF::Movie::newSWFMovieWithVersion(8); 11 12$b = new SWF::Bitmap($mediadir."/image01.png"); 13 14$m->addExport($b, "BitmapExport"); 15$m->writeExports(); 16 17$m->save("test01.swf"); 18