Custom C/Perl-Programing on Xfilesharing Pro script

We are looking for a talented C/Perl programmer who can code us some lines for the Xfilsharing Pro Script. In special: we are needing some addons for the [login to view URL] script to download from other hosters. Code sample: sub prexxxxx { my ($u,$ua,$accs) = @_; my @acc = shuffle(split(/\|/,$accs)); $u->{accs}||=\@acc;# if $u->{rslee}; ($u->{auth_login},$u->{auth_password})=$c->{"my_xxx_logins"}=~/^(.+):(.+)$/ if $c->{"my_xxx_logins"} && !$u->{auth_login}; ($u->{auth_login},$u->{auth_password}) = shift(@{$u->{accs}})=~/^(.+):(.+)$/ if !$u->{auth_login}; my $res = $ua->post('[login to view URL]', { 'LoginForm[email]' => $u->{auth_login}, 'LoginForm[password]' => $u->{auth_password}, 'LoginForm[rememberMe]' => '', }); $res = $ua->get($u->{url}); $u->{url} = $1 if $res->decoded_content =~ /var\s+premium_download_link\s*=\s*'([^']+)'/; return($u); } if you understand this code and the material then contact us. if you do not understand it so much or are not experianced enough do NOT contact us. we will pay per add-on 100$, normally this is about 2 hours coding works max.