Untitled

#!/usr/bin/perl -w

use strict;
use warnings;


#Used as a shortcut to connect to consoles.

print "What DC?\n";
chomp($data_center = <STDIN>);
$command = 'ssh console-'.$data_center.'.myhostname.com';
system ($command);

#now to run consoletool on the connected host

#print "What is the hosts console IP?\n";
#$ip_address = <STDIN>;
#system (/usr/local/bin/consoletool $ip_address);

#if that fails then try this path
#system (/usr/local/aes/cons-utils/consoletool $ip_address);