use strict; use warnings; my $macf = 0; my $syman = 0; #intialize all the other variables etc... #start of mainfunction here sub mainfunction(); { if(($macf == 0) && ($syman == 0)) { if(($mac eq $oldMac) && ($sym eq $oldSym)) { print "no changes\n"; } elsif(($mac ne $oldMac) && ($sym ne $oldSym)) { print "section C UPDATE\n"; } elsif($mac ne $oldMac) { print "section B UPDATE\n"; } elsif($sym ne $oldSym) { print "SEction E updated\n"; } } elsif(($macf == 0) && ($syman != 0)) { if($mac ne $oldMac) { print "MacSEction updated\n"; } else { print "no changes to mac\n"; } } elsif(($macf != 0) && ($syman == 0)) { if($sym ne $oldSym) { print "syman update\n"; } else { print "no changes to syman\n"; } } } #end of main function #start of condition checks to call correct function if(($syman == 0) && ($macf == 0)) { myfunc1(); myfunc2(); mainfunction(); } elsif(($syman == 0) && ($macf != 0)) { myfunc1(); mainfunction(); } elsif(($macf == 0) && ($syman != 0)) { myfunc2(); mainfunction(); }