perl -E 'say int(rand(100);'