#!/usr/bin/perl -w

use strict;

use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;

print header, start_html();

use SWF::Builder;

my $movie = SWF::Builder->new
    ( FrameRate => 15,
      FrameSize => [15, 15, 400, 400],
      BackgroundColor => 'ffffff'
      );

my $jpeg = $movie->new_jpeg('100.jpg');

$jpeg->place;

$movie->save('winter.swf');