#!/usr/bin/perl

print "Content-type: text/plain\n\n";
$weather = `/study/weather/tenki.pl`;
print $weather;
