my $ssh2 = Net::SSH2->new();
$ssh2->connect($sourceServer) or die ("Unable to connect"); 
$ssh2->auth_keyboard('user', 'password') or die ("Unable to login"); 
$ssh2->scp_get($sourceFileName);
$ssh2->disconnect();