use Data::Dumper;
	$Data::Dumper::Purity = 1;
	print "Saving media $media->{name}\n";
	open(FILE,">$media->{name}");
	print FILE Dumper($media);
	close FILE;