#!/usr/bin/perl -w

use Flash::Parser::SWF;
use Flash::Writer::Swfparse;

my $name = $0;
$name =~ s!^.*[\\/]!!;


die "\n usage: $name <filename>\n\n" unless (scalar(@ARGV));

my $flash = Flash::Parser::SWF::parse($ARGV[0]);
Flash::Writer::Swfparse->new($flash);

exit 0;