#!/bin/sh -v
perl -e 'while(1){}'