Select Code to Download

use strict;
use warnings;

my $string = "why doesn't this print?";
print $strnig;

my $string = "A";

# rather than

my $string = A;

sub A { return 'B' };

...

my $string = A;
print "$string\n"; # this prints "B"

#/perl/usr/bin
use warnings;
...
        }
    }
}