#!/usr/bin/perl

use strict;
use warnings;

my %hosts = ( "192.168.1.206" => "Windows_XP", 
              "192.168.1.207" => "Windows_Vista",
              "192.168.1.208" => "Windows_7",
              "192.168.1.230" => "MAC_OSX_Mountain_Lion",
              "192.168.1.231" => "MAC_OSX_Lion" 
);

my @browsers = qw/ firefox googlechrome iexplore /;
my $browserurl = 'http://admin:sky@192.168.0.1/';
my $date = (localtime);

foreach my $browser (@browsers) {
    foreach my $host (keys %hosts) {
        my $sel = Test::WWW::Selenium->new(host => "$host",
                                           port => 5555,
                                           browser => $browser, 
                                           browser_url => "http://192.168.0.1"
        );
        my $hostname = $hosts{$host}; 

        open STDOUT, "+>/varwww/cgi-bin/Perl-Scripts/$hostname\_$browser\.txt" 
            or die "Failed to open $hostname\_$browser.txt: $!\n";
        
        print "$host - $hostname - $browser - $date\n\n";
    }
}