#!/usr/local/bin/perl -w 
use strict;
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
$ua->agent("Mozilla/8.0 " . $ua->agent);

my $req = HTTP::Request->new(GET => 'file://ip/COOLHITS/');

my $res = $ua->request($req);

if($res->is_success){
	print $res->content;
}else{
	print "Bad Luck this time\n";
}