I am trying to get the time (in seconds) of a swf file. The examples for SWF::Parser on CPAN don't include any concise examples and my initial attempts are not working...

$parser->{_stream}{_pos} seems to have some useful data?

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