my $mem = chr(0); $mem x= 1024**3; ## 1 GiB.