#! /usr/local/bin/perl print << "EOF";   EOF