Shell Programming and Scripting

sub changestate {
  my $base = ();
  my @base = ();

    open(BASE, $file) || die("Could not open file!");
    @base=<BASE>;
    close (BASE);

      foreach $base(@base)
        {
          if($base =~ /sslCACert=/){
             $base =~ s/sslCACert=/sslCACert=myserver.domain\/path/gi;
             print ("Hello, world!\n");
          }
  open (BASE, ">$file");
  print BASE @base;
  close (BASE);
    };
}

base =~ s/sslCACert=/sslCACert=myserver.domain\/path/gi;