Try this test script in same folder as your failing script and check that test1.txt is created.

#!/usr/bin/perl
use strict;
use warnings;
my $dir = './images';
if (-d $dir){
  open OUT,'>', $dir.'/test1.txt' or die "error open OUT $!";
  print OUT "TEST";
  close OUT or die "error close OUT $!";
} else {
  print "$dir folder does not exist";
}
[download]

poj