my $started = 0;
open(LVMINFO, '<', $filename);
while (<LVMINFO>) {
  $started = 1 if /^LV Name/;
  next unless $started;
  last if /--- Logical extents ---/;
  chomp;
  # Process
  # Process
  # Process
}
close(LVMINFO);