if (open FILE, '< /usr/local/bin/perld/lvimgGH_ms0_tapes.orig')
    print "eject 0,0,0\n";
    print for <FILE>;
    close FILE;
  }