use strict;
use Win32::OLE;

my $IIS = Win32::OLE->GetObject("IIS://servername/W3SVC/0");
$IIS->Stop();