#! perl -w
open(F1, "in.dat") or die "Ошибка открытия файла: $!";
$str = "1234567890";
read F1, $str, 9; # Чтение девяти байтов в
# переменную $str без смещения
print $str,"\n"; # $str = "********\n"
read F1, $str, 8, length($str);
print $str,"\n"; # $str - "*******\n* PERL *"

See also:
JustSomeLyrics
93
93.64
方大同 叫我怎么说 Lyrics
Ultrabeat VS Scott Brown (BY @ello-) Elysium [I Go Crazy] (Extended Version) Lyrics