open (FH,"<prosite.dat");
while (<FH>){
$c++;
print;
last if $c > 10;
}