{
  local $^I = ".bak";
  local *ARGV;
  @ARGV = ".fetchmailrc";
  while (<>) {
    s/^(here)/$username\n$1/i;
    print;
  }
}