#!/usr/local/bin/perl

use strict;
use warnings;
use Linux::Bootloader;
use Linux::Bootloader::Grub;

my $config_file = '/etc/grub.conf';

my $bootloader = Linux::Bootloader::Grub->new($config_file);
$bootloader->debug(3);
$bootloader->read($config_file);
$bootloader->print_info('default');