CPANにSWF::Builderというのがあるのでそれで試してみました。 #!/usr/bin/perl use strict; use utf8; use SWF::Builder; my $movie = SWF::Builder->new ( FrameRate => 15, FrameSize => [0, 0, 400, 400], BackgroundColor => 'ffffff' ); my $font = $movie->new_font('msgothic.ttc'); my $text = $movie->new_static_text($font) ->size(10) ->color('000000') ->text("こんにちわ") ->place; $movie->save('ttf.swf');ほとんどSYNOPSISのコピペ。 cygwin上の5.8で