Select Code to Download

use strict; 
(my $x = 15) && $x;

use strict; 
(my $x = 15);$x;

my $x = 1;
for (1 .. 5) {
    my $x = $x;
...
    print $x;
}
print $x;