#!/usr/bin/perl

open IN,$0; 
print while <IN>;
close IN;