Copher oddly does not use the built-in Net::Netrc to parse the user's .netrc file. The code would be very simple, something like:
use Net::Netrc
my $mach = Net::Netrc->lookup('sourceforge');
$user{loginname} = $mach->login;
$user{password} = $mach->password;
