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()