sub printboxes {
    my ($query, $file, %list) = @_;
# ...
    open FH, '> ' . $file or die $!;
    $query->save(FH) or die $!;
    close FH or die $!;
}