Are you always going to be using the current server where the script is running as the smtp server? Or I am misunderstanding this?
If so, you can also get a value for the current hostname using the Sys::Hostname module. This should work for any *nix hostname.

#!/usr/bin/perl -w
use strict;
use Sys::Hostname;
my $server = hostname;
print "Hostname is $server\n";
[download]

Rich36

---

There's more than one way to screw it up...

---