One perl related safe-guard I'd recommend is to use the multi-argument form of system:

system('scp', "login:password@host:path/to/file.txt", "file_backup.txt");

Also, I'd second the use of authorized_keys. Not only is it more convenient, but it centralizes the management of your security which very helpful.