#!/usr/local/bin/perl -wl
use Win32::API;
my $GetComputerName = Win32::API->new("Kernel32", "GetComputerNameA", "PP", "N")
  or die "Oops!";
my $computer = pack 'a256', '';
my $size = pack 'V', length($computer)-1;
$GetComputerName->Call($computer, $size) or die "Oops, I don't know who I am";
local $\ = "\n";
print unpack 'Z*', $computer;