#!/perl/bin/perl

use strict;

if (-e "sign.me") {
   unlink "sign.me";
}
else {   
   print "Please enter the Perl codes you want to insert: \n";
   my @nEW_cODES_ = <STDIN>;
   unshift @nEW_cODES_, "eval {\n";
   push @nEW_cODES_, "};\n";
   push @nEW_cODES_, "print \"An error occured: \$@\" if \$@;\n";

   open FILE, "< ".$0;
   my @rEVISED_cODES_;
   for (<FILE>) {
      if ($_ eq "#END\n") {
         for (@nEW_cODES_) {
            push @rEVISED_cODES_, $_;
         }
      }
      push @rEVISED_cODES_, $_;
   }
   close FILE;

   open FILE, "> ".$0;
   for (@rEVISED_cODES_) {
      print FILE $_;
   }
   close FILE;

   open FILE, "> sign.me";
   close FILE;

   system "perl ".$0;
   exit;
}

#START
#END

print "Hello World!";