#!/usr/bin/perl
open(F,"<$0");
undef $/;
eval <F>;