Using URI::Fetch cached

gistfile1.txt

use URI::Fetch;
use Cache::File;
use HTTP::Status qw(:constants);

$url = 'http://127.0.0.1:8080/media/snapshot.json.gz';

$cache = Cache::File->new(cache_root => '/tmp/cache');
$response = URI::Fetch->fetch($url, ForceResponse => 1, Cache => $cache);

if ($response->http_status == HTTP_OK) {
	printf("200 OK\n");
} elsif ($response->http_status == HTTP_NOT_MODIFIED) {
	printf("304 NOT MODIFIED\n");
} else {
	printf("ERROR\n");
}