my $target = UnixDate(Date_ConvTZ( ParseDate("3 days ago"), 'GMT', 'PST' ),"%e/%h/%Y");
print $target;
open DATA,">$ARGV[1]";
open FH,"$ARGV[0]";

m/\[$target:/ and print DATA $_ while <FH>;
close DATA;
close FH;