gnu screenを使用しているときに、別のウィンドウでssh接続。

scrnssh.pl

#!/usr/bin/env perl
use utf8;
use strict;
use warnings;
binmode(STDIN,':utf8');
binmode(STDOUT,':utf8');

if($#ARGV==-1) {
  print "USAGE: $0 [title] [ssh command]\n";
  print "       $0 [ssh command])\n";
  exit;
}

my ($title,@cmd);

if($#ARGV==0) {
	$title=$ARGV[0];
	$title=~s/^(.+?)\@//;
} else {
	$title=shift @ARGV;
}
system('screen','-t',$title,'ssh',@ARGV);