#!/usr/bin/perl

%e2date = ();

$e2date{'1-8'}="2000-01-29";
$e2date{'9-16'}="2002-02-01";
$e2date{'17-24'}="2004-02-01";
$e2date{'25-32'}="2006-02-01";
$e2date{'33-40'}="2008-02-01";
$e2date{'41-48'}="2010-02-01";

foreach $e ( keys %e2date ) {
  $oname = "e${e}_qeu_Mn_bg";
  $nname = "qeu_Mn_bg_$e2date{$e}";
  print $oname," ",$nname,"\n";
  rename ("$oname.fits","$nname.fits");
  rename ("$oname.cti.fits","$nname.cti.fits");
}
