#!/usr/bin/perl use warnings; use strict; use CGI qw/:standard/; print header, start_html; use CGI::Carp 'fatalsToBrowser'; use LWP::Simple; my $page = ""; my $content = get($page); my ($guests) = $content =~ m/\d+\s+Guests/; my ($users) = $content =~ m/\d+\s+Users/; print "$guests and $users";
In reply to premature end of script headers? by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |