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" ;

##</code><code>##

$ Mod_test.pl
Scalar found where operator expected at Mod_test.pl line 17, near "$new_group $f
ile"
        (Missing operator before $file?)
syntax error at Mod_test.pl line 17, near "$new_group $file"
Execution of Mod_test.pl aborted due to compilation errors.

##</code><code>##

$ Mod_test.pl
Scalar found where operator expected at Mod_test.pl line 17, near "$new_group $f
ile"
        (Missing operator before $file?)
syntax error at Mod_test.pl line 17, near "$new_group $file"
Execution of Mod_test.pl aborted due to compilation errors.