Facebook Graph Search

#!/usr/bin/perl

#[+] FACEBOOK GRAPH SCANNER

#[+] USAGE:

# perl ./face-graph.pl graph.facebook.com/<id or username>
# [+] MASS:
# php inurlbr.php --target 'graph.facebook.com/' -s scan.txt -o 'face.txt' --command-all "perl ./face-graph.pl _TARGETFULL_"
# php inurlbr.php --target 'graph.facebook.com/' -s scan.txt -o 'face.txt' --command-all "wget _TARGETFULL_ -O visual.txt && cat visual.txt"

$id = $ARGV[0];
system("clear");
print "
        [+]================================================================[+]
        [+]--------------        Facebook Graph Search       --------------[+]
        [+]================================================================[+]
        [+]--------------           AlisamTechnology         --------------[+]
        [+]------ https://www.fb.com/Forces.des.tempetes.marocaines  ------[+]
        [+]------        https://www.youtube.com/user/aliartes       ------[+]
        [+]================================================================[+]
        [+]======================        USAGE       ======================[+]
        [+]    perl ./face-graph.pl graph.facebook.com/<id or username>    [+]
        [+]================================================================[+]

     ";
system("wget $id -O visual.txt && cat visual.txt");