A simple file up/downloader written in perl