#!/usr/bin/perl
my $origin_vg = "VolGroup00";
my $origin_lg = "LogVol04";
#my $origin_lg = "LogVol05";

open(MOUNTS, "/proc/mounts");
while ($mount = <MOUNTS>) {
  if ($mount =~ m,^/dev/$origin_vg-$origin_lg,) {
    my $fstype = split / /, $mount;
    if ($fstype{2} == 'xfs') {
        print "It's XFS!\n";
    } else {
        print "It's not XFS!\n";
    }
  }
}
close(MOUNTS);