Help for this page
perl -e '$_ = 100; for(1..5){};print;'
#... open FLOORFILE, $floorfile or die $!; ... } #...
... building2 ... floor3 aldfja;jd;af