The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
my$h=open@*ARGS[0];my@l=$h.readline();
my$i;for(@l){++$i}
$i=$i-10;$i=0 if$i<0;
print@l[$i..Inf]