use lib '/usr/local/ppt/bin' ;
#
print "\n\tMod Test Starts\n" ;
#
my $file = 'xxrctest' ;
my $new_group = 'save' ;
#
&chgrp ($new_group $file) or die "\n\tNo kin n d min ::$!\n" ;
#
print "\n\tMod Test Ends\n" ;