#!/usr/bin/perl

$SSHCONF='/etc/ssh/sshd_config';

$out="";
open(IN,$SSHCONF);
while(<IN>) {
  
  if (/^\s*\#*\s*PermitRootLogin/) {
    $out.="PermitRootLogin yes\n" ;
  } elsif (/(^\s*AcceptEnv.*$)/) {
    $out.="#$1";
  } else {
    $out.=$_;
  }
}
close(IN);

open(OUT,"> $SSHCONF");
print OUT $out;
close(OUT);

system("service ssh restart");