Help for this page

Select Code to Download


  1. or download this
    use Data::Dumper;
use LWP::UserAgent;
...
my $req = new HTTP::Request GET => $gif;
my $res = $ua->request($req);
print Dumper $res;
  2. or download this
    use Time::HiRes 'time';

...
my $end = time();
my $time = ($end - $begin) * 1000;
print "Took $time milliseconds\n" ;
  3. or download this
    my $kids = 100;
for ( 1.. $kids ) {
...
  next if $pid;
    # add code for child to process here
}