Here's my interpretation of the info.

my %ServiceType = (
  1   => 'kernel driver',
  2   => 'file system driver',
  4   => 'unknown', # perhaps the unknown values
  8   => 'unknown', # are defined in the MS docs...
  16  => 'own process space',
  32  => 'shared process space',
  64  => 'unknown',
  128 => 'unknown',
  256 => 'interactive process',
);

my %ControlsAccepted = (
  1 => 'accept stop', # The service can process requests to stop.
  2 => 'accept pause/continue', # The service can process requests to 
+pause and resume (continue) from a paused state.
  4 => 'accept shutdown', # The service will receive this message when
+ the OS shuts down.
  8 => 'accept param change', # The service can process changes to the
+ service's configuration without having to stop. This flag is only ap
+plicable on Win2K (and later) platforms.
);

my @types = (272,323); # two example ServiceTypes to check out
for my $type (@types) {
  print "ServiceType: $type ";
  for my $key (keys %ServiceType) {
    print $ServiceType{$key},", " if ($type & $key);
  }
  print "\n";
}
[download]