#!/usr/bin/perl
use strict;
use warnings;
use Net::Telnet;
my $t = new Net::Telnet(
Port => 4242,
Host => 'localhost',
);
$t->cmd(qq|content.location.href='http://www.google.co.jp'|);
my @message = $t->cmd(qq/alert('Hello,World!')/);
$t->close;
print @message;動きますた。Net::Telnetって初めて使った。
Rubyのコードとほとんど変わりませんね。
