# createme.pl

  $shift = 5;

  open (IN,  $ARGV[0])    || die ("couldn't open input file '$ARGV[0]'\n");
  open (OUT, ">$ARGV[1]") || die ("couldn't open ouput file '$ARGV[1]'\n");

  $line = <IN>;
  chop ($line);
  $line =~ s/\".*/\"/;
  print OUT "$line";

  while ($line = <IN>) {
    $line2 = "";
    for ($i = 0; $i < length ($line); $i++) {
      print OUT chr (ord (substr ($line, $i, 1)) + $shift);
    }
  } 
  close (IN);
  print OUT "\";\n";
  
  open (IN, $ARGV[0]);
  $line = <IN>;
  while ($line = <IN>) {
    print OUT $line;
  }

  close (OUT);