create folder if it does not exist perl
use strict;
use warnings;
use File::Basename;
use Time::Piece;
# my $date = Time::Piece->new->strftime('%m%d%Y');
my $DEST = "$ENV{'HOME'}/Desktop/";
# use POSIX qw(strftime);
# my $now_string = strftime " %a %b %e %H%M%S %Y", localtime;
my $date = Time::Piece->new->strftime(" %Y %m %d %a %H %M %S");
my $dir = "gpsbabel export" . $date . "/";
# if(-d $DEST . $dir){
# die("Folder " . $DEST . $dir . " already exists" );
# } elsif (-d $DEST . $dir){
# # print "created folder at " . $DEST . $dir;
# }
unless(-d $DEST . $dir ){
mkdir $DEST . $dir or die("not possible to create export folder at ");
}