print "X-SC-Category: School\n";
print "X-SC-Cond: ", $row->[1], "\n";
print "X-SC-Time: ", $row->[2], "\n";
print "X-SC-Duration: ", $row->[3], "\n";
print "X-SC-Category: School\n";
print "X-SC-Cond: ", $row->[1], "\n";
print "X-SC-Time: ", $row->[2], "\n";
print "X-SC-Duration: ", $row->[3], "\n";