my $pvid = "00c1be9a467335ce0000000000000000";
   my $newpvid = substr( $pvid, 0, 16 );
   print "\$newpvid: $newpvid\n";