Help for this page

Select Code to Download


  1. or download this
     
#!/usr/bin/perl -w
use strict;
...
getstore($url, $text) or die "Can't download: $@\n";

}
  2. or download this
    $ ls
...
prayingHitler.jpg?
...
received.jpg
reichchurch.gif?
...
  3. or download this
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http:/
+/www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

...

    border:solid 1px #dff4fe;
...
  4. or download this
    my $data = LWP::Simple::get $params{URL};
my $filename = "image.jpg";
...
binmode (FH);
print FH $data;
close (FH);