#!/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";
}