#!/usr/bin/perl
use Switch;

my $srv_name = $ARGV[0];

switch ($srv_name) {
    case 'galileo' {
        print "ssh connect to galileo\n";
        system "ssh -X 10.211.55.12 -l ken";
    }
    case 'herschel' {
        print "ssh connect to hershcel\n";
        system "ssh -X 10.211.55.6 -l ken";
    }
    case 'artemis' {
        print "ssh connect to artemis\n";
        system "ssh -X 10.211.55.10 -l ken";
    }
    case 'magellan' {
        print "ssh connect to magellan\n";
        system "ssh -X 10.211.55.13 -l ken";
    }
    case 'gemini' {
        print "ssh connect to gemini\n";
        system "ssh -X 10.211.55.11 -l ken";
    }
    case 'skylab' {
        print "ssh connect to skylab\n";
        system "ssh -X 10.211.55.16 -l ken";
    }
    case '-h' {
        print "usage:gelileo, artemis, gemini, magellan\n";
    }
}

exit 0;