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

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