my $limit = 100*1024*1024; # 100 MB