Select Code to Download

use strict;
use warnings;
...
} until $num eq '47';

print $num;

use strict;
use warnings;
...

ReadMode 'restore';
print $num;