#!/bin/sh perl -e0