Do you mean this?

$t = new Net::Telnet();
$t->open("sparky");
$t->login( $username, $passwd );
$t->cmd( 'scp userb@serverb:/path/file userc@serverc:/dest/path' );
[download]

If not, clarify please.