FTP automatic

[perl_cova]

HI!
 I need to do something to automatize one process. 
 When a file in directory reach 1 GB I need transfer file for other machine 
(ftp).
 I'm waiting for solutions.
 Thanks.