mkdir /tmp/myscript_cover 
perl -MDevel::Cover=-db,/tmp/myscript_cover,-select,. /tmp/myscript.pl

##</code><code>##

use strict;
use File::Path;
mkpath '/tmp/asdasd';
use Image::Magick;
my $IMG_BLANK = Image::Magick->new();