#!/usr/bin/perl
use strict;
use FindBin qw ($Bin);
use lib "$Bin/lib";
use General;
use Functions;

my $host=$ARGV[0];
$General::password=$ENV{'PASSWORD'};

my $login = getPrompt($host);
die "Could not connect to $host" if $login ne "SUCCESSFUL!";
my $result = getOSType();

print $result;