Help for this page

Select Code to Download

Select or download this
```
<html>
<body>
...
</body>
</html>
```

Select or download this

#!/usr/bin/perl -w
use strict;
...
 my $status = ($rand_status) ? "Cool" : "Froody";
 return $status;
}