Untitled text

#!/usr/bin/perl use WWW::Mechanize::Firefox; system('firefox &'); #The & makes it so the program doesn't wait. sleep 5; #So firefox can load $mech = WWW::Mechanize::Firefox->new; $mech->get('http://www.mycloudflareblockedwebsite.com/'); if($mech->content =~ /Test if it is the CLOUDFLARE source HTML page/) { sleep 10; #Wait for cloudflare to do it's thing }