下のRubyのコードをPerl(PHP),htmlに変換してください。sinatra導入時のコードです。

#!/usr/local/bin/ruby
require 'rubygems'
require 'sinatra'

get '/' do
src = <<"EOS"
<form method="post" action="/" enctype="multipart/form-data" />
<input type="file" name="textdata" />
<input type="submit" value="load"/>
</form>
EOS
response.body = src
end


post '/' do
text = params[:textdata][:tempfile].read
filename = params[:textdata][:filename]

src = <<"EOS"
<form method="post" action="/" enctype="multipart/form-data" />
<textarea name="savetext" cols="60" rows="10">#{text}</textarea>
<input type="hidden" name="_method" value="put">
<input type="hidden" name="filename" value="#{filename}">
<br>
<input type="submit" value="save" />
</form>
EOS

response.body = src
end


put '/' do
text = params[:savetext]
filename = params[:filename]

open(filename, "wb") do |fh|
fh.write text
end
redirect '/saved'
end

get '/saved' do
"complete"
end