Select Code to Download

# The optimized perl code
use strict;
use warnings FATAL => 'all';
...
}

print "$ans\n";