#!/usr/bin/perl use warnings; use strict; use CGI::Carp qw(fatalsToBrowser); use CGI::Pretty qw[:standard unescape escape]; use WWW::Mechanize; my $facebook_email = "our.login\@email.address"; my $target_prefix = "our.login"; # to be explained later my $target_suffix = "\@email.address"; my $pass = "p4s5w0rd"; my $base = "facebook.com"; my $self = "our.server.url"; my $self_suffix = ""; $| = 1; print "Content-type: text/html\n\n"; print "