#!/usr/bin/perl -w

use strict;


use Linux::LVM;

# get the existing volume groups
foreach my $vg (get_volume_group_list()) {

  # store the vg size in MB
  my %vg_info = get_volume_group_information($vg);
  print "PE:" . $vg_info{alloc_pe_size} .  $vg_info{alloc_pe_size_unit} . "\n";

}