use FindBin;
# Path to the images.
my $varpath = decode_path($FindBin::Bin) . "/var";
my $varpath = decode_path($FindBin::RealBin) . "/var";
if ($^O eq 'darwin' && !-d $varpath) {
$varpath = decode_path($FindBin::Bin) . "/../Resources/var";
}