#!/usr/bin/perl
open (F ,$0) ;
chomp(@a=<F>);
close F ;print
join "\n", @a;