perl script initiaal upload