Select Code to Download

sub deleteUser {
# in: app access token, app id, FB userId to delete
# deletes user using app access token
...
  my $post = hitFbNew2('post', $url , \%form);
  return ($post);
}

sub hitFbNew {
  my ($method, $endpoint, $form) = (shift, shift, shift);
  my $curl = WWW::Curl::Easy->new;
...
  print "\nreply code is $reply{responseCode} and content is $reply{co
+ntent}";
  return (\%reply);
}