[hilco@slammer ~]$ cat qwer.pas
program qwer;

var
  Buff: Array [1..5] of Char;

begin
  readln(Buff)
end.
[hilco@slammer ~]$ perl -e 'print "A"x100000' | ./qwer