Select Code to Download

open(FIL,">>$myfil") || die "No open for ct tot: $! \n";
if($ct == 1){
...
}
system("mailx -s 'Mail header' myemail < $myfil");
close(FIL);

open(MAIL,"|mailx blah) || die "No mail stuff: $! \n";
if($ct == 1){
...
        print MAIL "\n$ct are not available at this time.\n";
}
close(MAIL);

# Removed brackets, replaced || with or due to higher presedence and r
+eadability 
# used single quotes on uninterpolated strings.
...
print MAIL "\n$ct are not available at this time.\n" if $ct >= 2;

close(MAIL);

open(MAIL,"|mailx blah) || die "No mail stuff: $! \n";
SWITCH: {
...
   $ct == 1   && { print MAIL "\n$ct is down at this time.\n"; last SW
+ITCH };
}
close(MAIL);