Select Code to Download

if (defined $arg{User}) {
       $obj->auth($arg{User},$arg{Password});
}

        MIME::Lite->send('smtp', $out_smtp ,
                          Port =>$smtp_port ,
...
                          User  => 'trs80',
                          Password  => 'blah' );