Help for this page

Select Code to Download


  1. or download this
    my %users = map { $u => 0 } qw/ list of users to watch /;
    
    ...
        }
        sleep 2;
    }
    
  2. or download this
    use Tie::Scalar;
    @ISA = (Tie::StdScalar);
    ...
        $user{$_} = $curr{$_} for @list;
        sleep 2;
    }