Select Code to Download

use warnings;
use strict;

sub a{ 1 };
sub a{ 2 };

$ perl -Mdiagnostics x
Subroutine a redefined at x line 6 (#1)
...
        eval "sub name { ... }";
        }