#!/usr/bin/perl
use LWP::Simple;
if (fork) {
	getstore('ftp://someserver/big640Mbfile', '/myfolder/file');
}