#!/usr/bin/perl -w
use strict;

use SWF qw(:ALL);

SWF::setScale(1.0);

my $m = new SWF::Movie();
$m->setRate(12.0);
my $s = new SWF::SoundStream("../../../mp3tod/todbot/tvsz-1.mp3");
$m->setSoundStream($s);

# 11.85 seconds at 12.0 fps = 142 frames
$m->setFrames(1420);

$m->save("test.swf");