Select Code to Download

use v5.12;
use warnings;
...
$x x= 2**30;  # 1GiB
print total_size($x) . "\n";
sleep 60;