#!/usr/bin/perl use lib '/home/bbs/bin/'; use LocalVars; # �C�A���@, �Q���N�|�]�@�� $ARGV[0] # ��ƨӷ� http://tw.weathers.yahoo.com/ open FH, "$LYNX -source http://tw.weathers.yahoo.com/ | grep '����'|"; $din = <FH>; close FH; ($month, $day) = $din =~ /�A�� (.*?)�� (.*?)��/; system("@ARGV") if( $day eq '�@' || $day eq '�@�Q��' );