sub date_tomorow_emv {
   my $d = `/bin/date --date '1 day' +%d%m%Y`;
   chomp $d;
   return($d);
}

sub date_tomorow_hyphen {
   my $d = `/bin/date --date '1 day' +%Y%m%d`;
   chomp $d;
   $d =~ s/(\d\d\d\d)(\d\d)(\d\d)/$1-$2-$3/;
   return($d);
}

sub date_tomorow_slash {
   my $d = `/bin/date --date '1 day' +%m%d%Y`;
   chomp $d;
   $d =~ s/(\d\d)(\d\d)(\d\d\d\d)/$1\/$2\/$3/;
   return($d);
}