#!/usr/bin/perl
use strict;

use SWF qw(:ALL);

my $stream = new SWF::VideoStream("test.flv");
$stream->setDimension(200,200);

my $m = new SWF::Movie();
$m->setDimension(800, 600);
$m->setRate(12.0);
$m->add($stream);
my $i = 0;
for($i = 0; $i < $stream->getNumFrames(); $i++) {
	$m->nextFrame();
}

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