# This prints: Just another Perl hacker,
seek DATA,15,0 and  print  +(<DATA>)[0];