#!/usr/bin/perl

use strict;

print "Running on " . `hostname`;

my $return = system("screen -list");
print "screen RETURN: $return\n";

if ($return eq "-1") {
	if (-e "/etc/gentoo-release") {
		system "emerge app-misc/screen";
	} else {
		system "yum install screen -y";
		system "cat /etc/redhat-release";
	}
	system "ifconfig";
}

my $return = system("bc --version");
print "bc RETURN: $return\n";

if ($return eq "-1") {
	if (-e "/etc/gentoo-release") {
		system "emerge bc";
	} elsif (-e "/etc/redhat-release") {
		system "yum install bc -y";
	} else {
		system "apt-get install bc";
	}
	system "ifconfig";
}

my $return = system("git --version");
print "git RETURN: $return\n";
exit;

if ($return eq "-1") {
	if (-e "/etc/gentoo-release") {
		system "emerge git";
	} elsif (-e "/etc/redhat-release") {
		system "yum install git -y";
	} else {
		system "apt-get install git";
	}
	system "ifconfig";
}