use strict;
use warnings;

print("$]\n");  # 5.008008

# Don't inline these. It will cause the
# memory to be allocated at compile time.
my $min = 0;
my $max = 10_000_000;

for (         $min .. $max) { print(":"); <STDIN>; last; }  # 2.2MB
for ( reverse $min .. $max) { print(":"); <STDIN>; last; }  # 239MB