Filecopy with progressbar, written in perl