• If you aren't woried about error results of mkdir (maybe you should be, but you aren't checking right now), you don't need to check if the directory exists. If it exists, the function returns an error (which you don't check, so to you it won't make a difference).
• the File::Path core module contains a nice function called mkpath which recursively checks parent dirs to make sure they exist before making the directory of interest
• Long path values should be kept in a constant or a variable somewhere
• if(! ...) is better written as unless( ... ), this is more of a personal style thing, but at least use if (not ... ) as both are more readable

use File::Path 'mkpath';
use constant DIR => 'e:/web/public_html/eagle_f91...';

unless (-d DIR) {
      mkpath(DIR) or die "Could not mkpath: $!\n"
}
[download]