use warnings;
use strict;
use Net::SMTP;

my $smtp = Net::SMTP -> new('wibble');
$smtp -> auth('URI', 'PSWD');
$smtp -> quit();