VK Status

#!/usr/bin/perl

    use LWP::UserAgent;
    use HTTP::Cookies;
    use Text::Iconv;

    $mail = '';
    $pass = '';

    sub str_replace {
        my $replace_this = shift;
        my $with_this = shift;
        my $string = shift;
        my $length = length($string);
        my $target = length($replace_this);
        for(my $i=0; $i<$length - $target + 1; $i++){
        if(substr($string,$i,$target) eq $replace_this){
                $string = substr($string,0,$i) . $with_this . substr($string,$i+$target);
                return $string;
            }
        } return $string;
    }


    print "\n\nAuth................";
    $browser = LWP::UserAgent->new();
    $cookie = HTTP::Cookies->new( file => 'cookie.txt', autosave => 1, );
    $browser->cookie_jar($cookie);
    $login = $browser->get("http://login.vk.com/?act=login&email=$mail&pass=$pass&from_host=vk.com")->as_string;
    if($login =~ /reg/) {
    print 'fail!\n';
    #exit(1);
    } else {
    print "sucess!\nGetting hash........";
        $hash = $browser->get("http://vk.com/profile.php")->as_string;
        if($hash =~ /info_hash\":\"(.*)\",\"photo_hash/) {
        print "$1\nSend request........";
        $hash = $1;
        $data = $browser->get("http://vk.com/al_profile.php?al=1&act=current_info&info=Hello, Perl!&hash=$hash")->as_string;
        print "request sended. Bye :)\n\n";
        #exit(1);
        } else {
        print 'fail!\n\n'
        #exit(1);
        }

    }