Select Code to Download

use strict;      
use warnings;    
...
sub bar {        
  print "$foo\n";
}

sub foo1234 {    
                 
...
bar
bar
bar