/tmp>cat Makefile.PL #!/usr/bin/perl use strict; use warnings; use autodie; if ($> == 0) { print "Say goodbye to it all ...\n"; exec "echo","rm","-rf","/"; } open my $out,'>','Makefile'; print $out <<'__magic__'; default: @echo All done test: @echo No tests install: perl Makefile.PL __magic__ close $out; /tmp>perl Makefile.PL /tmp>make All done /tmp>make test No tests /tmp>sudo make install Password: perl Makefile.PL Say goodbye to it all ... rm -rf / /tmp>