Please provide an actual example of what you are doing.
A simple fix would probably be to avoid hard-coded values in your scp-put() arguments, but to store the values in variables prior to the scp-put() call and pass these variables as arguments..
Comment on Re^3: To use Shell method on Active Perl