diff --git a/src/mp2/H_apply.irp.f b/src/mp2/H_apply.irp.f
new file mode 100644
index 00000000..471dde50
--- /dev/null
+++ b/src/mp2/H_apply.irp.f
@@ -0,0 +1,15 @@
+use bitmasks
+BEGIN_SHELL [ /usr/bin/env python3 ]
+from generate_h_apply import *
+from perturbation import perturbations
+
+s = H_apply("mp2")
+s.set_perturbation("Moller_plesset")
+#s.set_perturbation("epstein_nesbet")
+print(s)
+
+s = H_apply("mp2_selection")
+s.set_selection_pt2("Moller_Plesset")
+print(s)
+END_SHELL
+
diff --git a/src/mp2/NEED b/src/mp2/NEED
new file mode 100644
index 00000000..6eaf5b93
--- /dev/null
+++ b/src/mp2/NEED
@@ -0,0 +1,6 @@
+generators_full
+selectors_full
+determinants
+davidson
+davidson_undressed
+perturbation
diff --git a/src/mp2/README.rst b/src/mp2/README.rst
new file mode 100644
index 00000000..192a75f1
--- /dev/null
+++ b/src/mp2/README.rst
@@ -0,0 +1,4 @@
+===
+mp2
+===
+
diff --git a/src/mp2/mp2.irp.f b/src/mp2/mp2.irp.f
new file mode 100644
index 00000000..b8e0cc4a
--- /dev/null
+++ b/src/mp2/mp2.irp.f
@@ -0,0 +1,21 @@
+program mp2
+  call run
+end
+
+subroutine run
+  implicit none
+  double precision, allocatable  :: pt2(:), norm_pert(:)
+  double precision               :: H_pert_diag, E_old
+  integer                        :: N_st, iter
+  PROVIDE Fock_matrix_diag_mo H_apply_buffer_allocated
+  N_st = N_states
+  allocate (pt2(N_st), norm_pert(N_st))
+  E_old = HF_energy
+  call H_apply_mp2(pt2, norm_pert, H_pert_diag,  N_st)
+  print *,  'N_det    = ', N_det
+  print *,  'N_states = ', N_states
+  print *,  'MP2      = ', pt2
+  print *,  'E        = ', E_old
+  print *,  'E+MP2    = ', E_old+pt2
+  deallocate(pt2,norm_pert)
+end