#! /usr/bin/perl
seek (DATA,0,0);
print <DATA>;
__DATA__
warn "Just another perl hacker\n";