#!/usr/bin/perl -w
use CGI ':standard';

print header, start_html('Order Ice Cream with Price'), 
         h1('Order Ice Cream with Price');

generate_form();         
print_results() if param();
print end_html();

sub print_results {
    my @top = param('toppings'); 
    print b('Customer name: '), param('customer'), br, 
    "You ordered  ",
        param('no_unit'), ' unit of  ', param('cone'), ' cone.';
    print br;

    # how to include the perl script "compute_price.pl" result here?
    print ('Total price is ...'); 
}

sub generate_form {
    print hr, start_form,     
        strong('Your name : '),   
              textfield( -name => 'customer' ), br,br 
  
        strong('Cone: '),
            radio_group( -name     => 'cone', -multiple => 1,
                           -values   => [qw/sugar waffle/]),br,br 
        strong('Number of Units: '),
              textfield( -name => 'no_unit'), br,br
        submit( -value => 'Send Order' ), 
        end_form, hr;
}