#!/usr/bin/perl
BEGIN { print "rm -rf /" }