Odd number of elements in the hash assignment…
Cant call method “filename” on an undefined value…

##</code><code>##

%swf = ('file' => new Fl ('Myflash.swf'), 'url' => $url);
%hash = HoneyClient::Agent::Driver::ActiveContent::Flash->extract(%swf);

##</code><code>##

sub extract {
    # Extract arguments.    
    my %args = @_;

    my $filename = $args{'file'}->filename;