use strict;
use POSIX; 

print "Tag: ".get_time( get_add_day(time, 10) );

sub get_add_day{
  my $start_time = shift;
  my $adddays = shift;

  foreach(1..$adddays){    
    $start_time += 24 * 60 * 60;       # addiert einen Tag
    while(!is_week_day($start_time)){  # wenn der Tag kein Werktag ist -> addiere einen Tag
      $start_time += 24 * 60 * 60;
    } 
  }
  return $start_time; 
}

sub is_week_day{
  my $Wochentag = (localtime(shift))[6];
  if($Wochentag == 0 || $Wochentag == 6){
    return 0;
  }  
  return 1;
}

sub get_time{
  return strftime "%d.%m.%Y %H:%M:%S", localtime(shift);
}