Select Code to Download

#/usr/bin/perl -w
use strict;
...
     else
       {call pgmd;     // keep these curly braces
        call pgmc;}

Output:
if (c=e)
...
     else
       {call pgmd;     // keep these curly braces
        call pgmc;}