#!/bin/bash perl << HDEND print ; __DATA__ line 1 line 2 HDEND