MozReplテスト

#!/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のコードとほとんど変わりませんね。

てか、もうPlaggerのプラグインで出てる！

http://subtech.g.hatena.ne.jp/youpy/20060928/p1