[php]#!\usr\bin\perl
system "color F";
use LWP::Simple
print "|---------------------------------|\n";
print "| Website is Up or Down |\n";
print "| |\n";
print "| Coded By ACC3SS |\n";
print "|---------------------------------|\n\n";
print "\n\nExample : Site.com\t";
print "\n\-----------------------------------\t";
while(1){
print "\n\nPlease Enter Site ==>> : \t";
$Site =<STDIN>;
chomp($Site);
$A = get "http://www.isup.me/".$Site;
if ($A =~ /is up/ ) {$res = "is up\n";}
else { $res = "is Down\n";}
print "\n\n$Site =====>> $res";
} [/php]
system "color F";
use LWP::Simple
print "|---------------------------------|\n";
print "| Website is Up or Down |\n";
print "| |\n";
print "| Coded By ACC3SS |\n";
print "|---------------------------------|\n\n";
print "\n\nExample : Site.com\t";
print "\n\-----------------------------------\t";
while(1){
print "\n\nPlease Enter Site ==>> : \t";
$Site =<STDIN>;
chomp($Site);
$A = get "http://www.isup.me/".$Site;
if ($A =~ /is up/ ) {$res = "is up\n";}
else { $res = "is Down\n";}
print "\n\n$Site =====>> $res";
} [/php]
نظر