This isn't a perl question at all. You should just set up sendmail to relay all mail from server A to server B.

Something like this should do the trick: define('SMART_HOST', 'smtp:my.server.here')

gav^