#!/usr/bin/perl

use LWP::UserAgent;

($ua = LWP::UserAgent->new)->timeout(20);

$url = "http://202.103.25.186/music/Phil%20Collins%20-%20That's%20What%20You%20Said.mp3";

if(($ua->request(HTTP::Request->new('HEAD', $url)))->code() == 200) {
	print "GOOD\n";
} else { 
	print "BAD\n";
}