【Perl 】初心者コーナーPart5

下記のようなN88ベーシックをパールで書くとどうなりますか？
2:"A"; lbtmp
4input "?x(%)=";x:
input "? "p(mmhg)=";p
6:gosub 500
8:print "t="; using "####.####";t;"c"
10:end
12:lp:rem lb.pres
14:input"x(%)=";x:
input "t(c)=";t
16:gosub 514
18;print "p="; using "####.####";p;"mmhg
20:end
*lh :rem ent.lb
24:input"?x(%)"=";x:
input"? t(c)=";t
26:gosub 525
28:print "h="; using "####.####";h;"kc/kg"
30:end

よろしくお願いします。