perl file to get most recent close

to be used for: buying/selling/etc