opendir(DIR, "/usr/home/automation/Sanity/xml/");
my @ssl = grep /\.xml$/, readdir(DIR); close(DIR);
foreach $ssl (@ssl) {
    
    open(SSL, "$ssl");
    my @in = <SSL>;
    close(SSL);
      foreach (@in) {
        s/sessionID/$SID/;
       }
}