Cacher is the code snippet organizer for pro developers

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 ");
}