open my $tenlines, "|head myfile.txt";

print $tenlines;