Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        i($gw->forecast(1,'condition')),
        t($gw->forecast(1,'high')), '/',
        t($gw->forecast(1,'low')), ']';