SetDirectory[NotebookDirectory[]];
data=Import["stats.out"];
graphtitle="Hosts file size history";
graphsubtitle = "base version: (adware + malware) only";
data=({DateObject[#1[[1]]],#1[[2]]}&)/@data;
lastitem=Callout[Last[data],ToString[Last[data][[2]]],Right, LabelStyle->Small, Background->LightBlue];
data[[Length[data]]]=lastitem;

graph=DateListPlot[data
,PlotTheme->"Detailed"
,FrameLabel->{{HoldForm[Unique domains],None},{HoldForm[Year],None}}
,FrameTicks->{{All,All},Automatic}
,ImageMargins->10
,ImageSize -> Large
,PlotLabel -> 
Column[
{
Style[graphtitle,16,Bold]
,Style[graphsubtitle,12,Bold]
,Style["updated: "<>DateString[TimeZone->"Zulu"] <> " UTC",12]
}
,Center
]
,LabelStyle->{GrayLevel[0]}
];
Export[StringReplace[ToLowerCase[graphtitle]," "->"_"]<> ".png", graph];
graph