sub output_file {
    my $self = shift;
    my $file = $self->file;
 
    $file =~ s/\?.*$//g;
 
    $file ||= $self->file_default;
 
    return $file;
}