sub save_form {
    my $self = shift;
    my $q = $self->query();
    #lexical fh, name is argument
    open my $fh, '>', shift || '/path/to/output.txt' or die $!;
    $q->save($fh);
    $self->run_mode('model');
}