Select Code to Download

#!/usr/bin/perl

...
    $result=$twitter->destroy_friend({ user_id => $data{'user'} });
    exit 0;
}

{
    "serviceErrorCode": 65604,
    "message":          "Empty oauth2 access token",
    "status":           401
}

#!/usr/bin/perl

...
</body>
</html>
END_HTML