#!C:\Perl64\bin\perl.exe
binmode STDOUT, ':utf8';
use charnames ':full';
use warnings;
use Win32::Ole;
use LWP::Simple;
use strict;
use Encode;


my $page="";
my $_;
my $link="";
my $count=0;

for(my $i=1; $i<=1000000; $i++){
unlink ("zwso.txt") or die $!;
$count++;
open (DATEI, ">zwso.txt") or die $!;
   print DATEI get("http://example.net/post/view/$count.php");
close (DATEI);


open (DATEI,"<zwso.txt") || die $!;
while (<DATEI>){

if ($_ =~ /http\:\/\/example\.unterseite\.net\/_images\/|.|\.jpg/m){
$link = ($_ =~ /http\:\/\/example\.unterseite\.net\/_images\/|.|\.jpg/m);
print $link;
last;
}

}
close DATEI;




#$page=~ /http\:\/\/example\.unterseite\.net\/_images\/|.|\.jpg/m;


getstore($link,$i);

sleep (2);
}
<STDIN>;