Select Code to Download

sub test_and_write {
    my ($TWR, $condition) = @_;
    print $TWR "True\n" if $condition;
}

open my $OUT, '>', 'output.txt' or die "Cannot open output.txt: $!";
test_and_write($OUT, int rand 2);