#!/usr/bin/perl
use strict;
use warnings;
use Net::DHCP::Constants qw( %REV_DHO_CODES );
for my $key (sort {$a <=> $b} keys %REV_DHO_CODES) {
printf " (%03d) %s\n", $key, $REV_DHO_CODES{$key};
}
1;
#!/usr/bin/perl
use strict;
use warnings;
use Net::DHCP::Constants qw( %REV_DHO_CODES );
for my $key (sort {$a <=> $b} keys %REV_DHO_CODES) {
printf " (%03d) %s\n", $key, $REV_DHO_CODES{$key};
}
1;