Select Code to Download

#!/usr/bin/perl -w
use strict;
...
sub foo {
    print "how do you do\n";
}

#!/usr/bin/perl -w
use strict;
...
sub foo {
    print "Salut toi! Ca va?\n";
}

#!/usr/bin/perl -w
use strict;
use one;
use two;
foo();

[~/] perl trial.pl 
Subroutine main::foo redefined at /usr/local/lib/perl5/5.8.2/Exporter.
+pm line 60.
 at trial.pl line 4
Salut toi! Ca va?

#!/usr/bin/perl -w
use strict;
use two;
use one;
foo();

[~/] perl trial.pl
Subroutine main::foo redefined at /usr/local/lib/perl5/5.8.2/Exporter.
+pm line 60.
 at trial.pl line 4
how do you do