tcl for synopsys DC

please helpI need a tcl codes(proc) to print out all the combinational paths from a specified input pin
to all output pins in the same module
Tried search web, did not find any
many thanks

tongqiudaad