$canvas->createText(10,20,
    -text => "Arial 12 bold",
    -font => [-family => "Times New Roman", -size => 12, -weight => "bold"],
    -fill => "red",
    -anchor => "w"
);