To print the first 5 lines of a file:

#!/usr/bin/perl
seek( DATA, 0, 0 );
$/ = undef;
print <DATA>;
__DATA__
[download]

--
Snazzy tagline here