1.1 --- a/suo-pelmen-record.pl	Wed Oct 24 11:37:32 2012 +0400
     1.2 +++ b/suo-pelmen-record.pl	Wed Oct 24 11:40:23 2012 +0400
     1.3 @@ -18,7 +18,7 @@
     1.4  #$ua->agent("MyApp/0.1 ");
     1.5  
     1.6  # Create a request
     1.7 -my $req = HTTP::Request->new(GET => 'https://office.alphatech.ru/suo-pelmen/subscribe');
     1.8 +my $req = HTTP::Request->new(POST => 'https://office.alphatech.ru/suo-pelmen/subscribe');
     1.9  $req->content_type('application/x-www-form-urlencoded');
    1.10  $req->content('users=52');
    1.11