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