#!/usr/bin/perl
use strict;
my $date_parsed = get_date();
print "Date Parsed: $date_parsed\n";

# gets parse-time date for release date

sub get_date {
   my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

   $year += 1900;
   ($mon, $mday) = (sprintf('%02d', $mon), sprintf('%02d', $mday));
  
   return $year."-".$mon."-".$mday;
};