sub x1_3o {

open my $in,  '<',  $thefile      or die "Can't read old file: $!";
open my $out, '>', "$thefile.new" or die "Can't write new file: $!";


while (<$in>) {
  if ($_ =~ /replaceme/) { print $out $_;
    


   print $out "
<FORM METHOD = \"post\" ACTION = \"$script_url\" name=\"login\">


<table border=0 cellpadding=4 cellspacing=4 width=470>
<tr>
<td>
<table><tr><td><br>\n";
    

   }

  next if /replaceme/../replaceme/;


print $out $_;

  }
close $out;
close $in;