use SWF::Parser;
my $parser = SWF::Parser->new( 'header-callback' => \&header);
$parser->parse_file('flash.swf');
print '$parser->{_stream}{_pos}=>' . $parser->{_stream}{_pos};