function shaft($date,@men)
{
    if (scalar (@men) >= $MIN_MEN_NEEDED && $date eq '2004-04-24 23:00:00')
    {
       $aDarkRoom = new DarkRoom();
       $aDanceFloor = new DanceFloor();
       $aBar = new Bar($bartender[0],$bartender[1],$bartender[2],$bartender[3]);
       @misc = (new Garderobe(),new Kasse());
       %djs = ('dj1' => 'Mystic Trap', 'dj2' => 'C-Fade');
       $theParty = Lib::Shaft::Party::startParty($aDarkRoom,$aDanceFloor,%djs,$aBar,@misc,@men);
       return $theParty;
    }
    else
    {
       return 'Please try again with different arguments';
    }
}