Select Code to Download

        perl -i.bak -lpe 's/PERL/perl/g' file

        {
          local ($^I, @ARGV) = ('.bak', 'file');
...
            print;
          }
        }

        tie @lines, 'Tie::File', 'file' or die ...;
        for (@lines) {
          s/PERL/perl/g;
        }
        untie @lines;

        for (@lines) {
          if (/<!-- insert here -->/) {
...
            last;
          }
        }

        unshift @lines, $new;   # Or add more than one record

        open DB, "< $database" or die ...;

...
          my $user = shift;
          return $db{$username};
        }

        tie @DB, 'Tie::File', $database or die ...;
        for (@DB) {
...
          my $username = shift;
          return $DB[$recno{$username}];
        }

        sub replace_data {
          my ($username, $new_data) = @_;
...
          $data[1] = $crypted_password;
          replace_data($username, join(':', @data));
        }