Steam ID Checker by lnt v2

################################
# Coded By LNT @ 2018
################################
use LWP::UserAgent;
system('cls');
print '
   _      _   _     _____   
  |"|    | \ |"|   |_ " _|  
U | | u <|  \| |>    | |    
 \| |/__U| |\  |u   /| |\   
  |_____||_| \_|   u |_|U   
  //  \\ ||   \\,-._// \\_  
 (_")("_)(_")  (_/(__) (__)  
';
print "\n  Steam  ID  Checker  by lnt\n";
print qq(
Enter users File:
> );
$USERLIST=<STDIN>;
chomp($USERLIST);
open (USERFILE, "<$USERLIST") || die "[-] Hello ! USER list ??";
@users = <USERFILE>;
close USERFILE;
foreach $E (@users) {
chomp $E;
my $UserAgent = LWP::UserAgent->new;
my $psn = "http://st-games.appspot.com/info?callback=angular.callbacks._8&user=$E";
my $request = HTTP::Request->new(GET => $psn);
my $reponse = $UserAgent->request($request);

if ($reponse->content=~ /"players"/) {
print " taken ($E)\n";
    open(LNT,">>SteamID.txt");
    print LNT "$E\n";
    close(LNT);
}
else {
if($reponse->content=~ /"success": false/){
        print "not taken ($E)\n";
    }else
        {
        print "BLOCKED\n";
        }
}
}