Select Code to Download

use strict;
use warnings;

open my $A, '>', 'out.txt';
print $A -1 == 0 ? "A\n" : "B\n";