. . 91 sub save { 92 my $profile = shift @ARGV || 'profile.xml'; 93 94 die "$0 save is not supported for PPM4 yet" if PPM4; 95 96 open(my $fh, ">", $profile) 97 || die "Can't open profile file:" . "$profile ($!)"; . .