--- /dev/null
+#!/usr/bin/perl
+
+$| = 1;
+
+$action = shift @ARGV;
+
+if ( $action eq 'purge' ) {
+ system('update-rc.d qmail remove >/dev/null');
+ system("rm -rf /var/qmail");
+ system("rm -rf /etc/qmail");
+ exit $?;
+}
+
+if ( $action eq 'abort-install' ) {
+ # Put back old inetd.conf (?)
+ exit 0
+}
+