not posting - Perl

can someone elaborate on why this code is not working:

#! Perl\bin\perl -w
use strict;
$|++;

use WWW::Mechanize;

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


my $username1 = 'makemine2';



my $subject = 'reply';



my $message = 'you would need to download it from the manufacturer's
website';

my $start_link
='http://forum.xda-developers.com/posting.php?mode=newtopic&f=26&sid=4536c02
26c1e0288ec27ff8e66123c55';


$mech->get( $start_link );




$mech->set_visible($username1, $subject, $message);


$mech->click( );