post data script

i write perl script that i can login to olx.com but i have errors,i need help to correct script

my perl script:

#!/usr/bin/perl

use WWW::Mechanize;
use strict;

  print "Content-type: text/html\n\n";

  my $username = "user";
  my $password = "pass";
  my $outfile = "out.txt";

  my $mech = WWW::Mechanize->new( );

  my $url = 'http://www.olx.com/login.php';

  $mech->get($url);
  $mech->form_name('loginform');
  $mech->field(username => "$username");
  $mech->field(passwd => "$password");
  $mech->click();

  my $response = $mech->content();
   print $response;

Code (markup):

 

try this:

good luck ...