Select Code to Download

sub create_order_file {
        
...
    close ORDERFILE or warn "Something fishy with closing the order: $
+!\n";
    
}

sub diehtml {
    print start_html('Error processing order'), @_, end_html(), "\n";
    exit 1;
}