REQUEST Create upload.cgi xfs filesharing

[inrev]

Hi BBF Members,

I m searching some one can guide me you too want learn perl cgi script from sibsoft.net
I attach to learn upload.cgi from fileserver script inside the cgi-bin...

and then I found this script to connect make api from filehosting to our leech upload.cgi sibsoft

Code:

sub pre4shared {
    my ($u) = @_;
    my ($login, $pass) = &getLogins("fs");

    my $res = $ua->get('http://www.4shared.com');
    my @forms = HTML::Form->parse($res);
    my $form = $forms[2];
    $form->value('login' => $u->{auth_login});
    $form->value('password' => $u->{auth_password});
    $form->value('remember' => 'true');
    $res = $ua->request($form->click);

    if($res->content=~/Invalid e-mail address or password/i) {
            ($u->{auth_login},$u->{auth_password}) = shift(@{$u->{accs}})=~/^(.+):(.+)$/;
            next if $u->{auth_login} and& $u->{auth_password};
            $u->{file_error}="Can not leech 4shared file";
            return $u;
    }

    return $u;
}

Can any one teach me and other member BBF to made new plugins leech in upload.cgi