Select Code to Download

sub doit{
 print "How are you?\n";
...
 }
}
close(FILE);

sub doit{
 print "How are you?\n";
 $x=1+1;
 print "$x\n";
}