Heh, sometimes it seems Perl offers a few too many choices.

To expand a bit on what my parsimonious brother chip has stated, I'd probably structure it like this:

my @files = glob '*.cold';  # you are using strict, no?
if (scalar(@files) == 0)
{
    print "Nothing matched\n";
}
else
{
    foreach (@files)
    {
        if (/^cold/)
        {
            print CBDOWNLOAD "Cold Backup file exists for DULS for $Fi
+leName.\n"
        }
        else
        {
            system ('awtrap -h RLGH -f DULS "DULSVASG001:  Unable to d
+ownload the 
+file."');
        }
    }
}
[download]

HTH