local args = {...}
local url = "http://pegasus.pimpninjas.org/lab/perl/put.pl"
local fh = fs.open(shell.dir() .. "/" .. args[1], "r")
if nil == fh then
  error("Failed to open " .. args[1])
end
local req = http.post(url, args[1].."\n"..fh.readAll())
fh.close()
if nil == req then
  error("failed")
end
print(req.readAll())
req.close()