my $limit = 100<<20; # 100 MB