[CentOS] Source keychain credentials in Perl?

>  The variables are not exported when I call Perl.  This is what I am
>  trying to do.  How do I get those variables to be available to the
>  bash "system" commands within the script?

Just so it is clear what I am trying to do, there are some scp and ssh
commands like:

system ("/usr/bin/scp /tmp/filename server1:/tmp/filename");

we want the scp command to use the running ssh-agent's credentials to
log onto the remote server.