sub lock {
  my ($file) = @_;
  return flock $file, LOCK_SH;
}
sub link {
  my ($text) = @_;
  return "<a href=$text>$text</a>";
}