Select Code to Download

#!/usr/bin/perl -w
use CGI ':standard';
...
        submit( -value => 'Send Order' ), 
        end_form, hr;
}

$ perl  compute_price.pl -type sugar -unit 3

#!/usr/bin/perl -w
use strict;              
...
     exit;
}