Or for strictly Windows machines (don't know of any other's that have this particular environment variable) you can use:

$ENV{COMPUTERNAME}
[download]

HTH...

#!/home/bbq/bin/perl
# Trust no1!