#!/usr/bin/perl
#Just Another Perl Hacker
seek(DATA,0,0);(undef,$_)=
<DATA>
;s/^.//;print
__DATA__