Sort of... Provided the server provides the piece of information. You just need to parse the server information returned to you. Here's a simple example script:

#!/usr/bin/perl -w
use strict;
use LWP::Simple;
print server('http://www.microsoft.com'),"\n";
print server('http://www.linux.org'),"\n";

sub server {
  my $url = shift;
  my (undef,undef,undef,undef,$server) = head($url);
  return $server;
}
__DATA__
Microsoft-IIS/6.0
Apache/1.3.27 (Linux) mod_perl/1.27 mod_ssl/2.8.14 OpenSSL/0.9.7a
[download]