#!perl use strict; use warnings; print "Content-Type: text/html\n\n"; print "\n"; my @jobtypes = (32, 64, 64|128, 128|256, 64|256); for my $j (@jobtypes) { setBu($j); } print ""; sub setBu { my $job_type = shift; my %bj = (64,'D', 128,'A', 256,'H'); print "

Job type is $job_type:

\n\n"; }