#!usr/bin/perl
system('cls');
system ('color A');
print "  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  \n";
print "--###########################--\n";
print "--####  C0d3d by YOSYA   ####--\n";
print "--#####   44I-44I-448  ######--\n";
print "--###########################--\n";
print "  ///////////////////////////--\n";
print "\n";
print "\n";
use LWP::UserAgent;
print "Enter CC number \n> ";
$cc=<stdin>;
$url="http://credit-card-information.elliottback.com/?number=".$cc;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@info=$answer->content =~ /<b>(.*)<\/b>/g;
print join "\n", @info;

print "\n";
print "\n";
print "\n";
print "Udachi )))\n";