Select Code to Download

chomp(my $fqdn = `hostname`);

# OR, much better:
my ($hostname) = `hostname` =~ /([-a-zA-Z0-9]+)/;
$hostname=~ tr/A-Z/a-z/;