#!/usr/bin/perl
open (IT, "< self");
while (<IT>) {
push @it, $_}
close (IT);
open (IT, ">> self");
print IT join ("\n  ", @it);
close (IT);