Select Code to Download

#!/usr/bin/perl
# Right, no warnings.
...
my $x = 1;          # Variable declaration
my $x = 10;         # Variable suicide!
print $x;

10