I would like to know if I could clean this up and get rid of my repititious lines such as the system(mail...) commands and anyother way to compact this?? I also tried playing with my open FIL and close FIL but could only get them to work as I have it below:

My script checks how many systems are down so the $ct variable represents how many systems are down.
Here is the part I was hoping I could condense:

if($ct == 1)
{
        print FIL "\n$ct is down at this time.\n";
        open(FIL,">>$myfil") || die "No open for ct tot: $! \n";
        system("mailx -s 'Mail header' myemail < $myfil");
        close(FIL);
}
elsif($ct >= 2)
{
        print FIL "\n$ct are not available at this time.\n";
        open(FIL,">>$myfil") || die "No open for ct tot: $! \n";
        system("mailx -s 'Mail header' myemail < $myfil");
        close(FIL);
}
close(FIL);
[download]