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

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