#!/usr/bin/perl

use LWP::UserAgent;

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

$url = "http://fly.hiwaay.net/~dbwalker/josie.mp3";

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