まぁ手をかけるといっても数行程度ですが......

use LWP::UserAgent;
my $ua = LWP::UserAgent->new(agent => '', timeout => 5);
my $res = $ua->get("http://localhost/$GB->;{'FORM'}->{'bbs'}/dat/$GB->{'FORM'}->{'key'}.dat", Host => $ENV{'SERVER_NAME'});
if ($res->is_error) {
    DispError2($GB, 'ＥＲＲＯＲ！', 'ＥＲＲＯＲ：>>1取得失敗');
}
my $firstlog = (split(/\n/, $res->content, 2))[0];