When you use strict; you have to initialize all variables with the function my.
I.e. my $mail_server = 'xxx.xxx.xx.xx';