Select Code to Download

sub one {
 my $x = "we are in one()\n";
...
}

one();

sub one {
 our $x = "we are in one()\n";
...
}

one();