chgrp( $new_group, $file ) or die( 'etc.' );

##</code><code>##

use lib '/usr/local/ppt/bin';

##</code><code>##

chown( -1, scalar getgrnam("save"), $file ) 
   or die( "$! etc." );