My perl code is not working! help?

[Meet]

! C:\Perl\bin
use warnings;
use strict;
use WWW::Mechanize;

my $url="http://www.facebook.com/";
my $mech=WWW::Mechanize->new();
$mech->get($url);
print $mech->content;

this is the perl code. so when i run it, it return to me the code for facebook mobile......
i dont noe why thats happening...
som1 pls help.
is it bcoz facebook is in XML, and WWW::Mechanize cant parse XML.......??