#!/usr/bin/perl

use POSIX qw(strftime);
my $date = `rpm -q --queryformat='%{INSTALLTIME}\n' basesystem`;
printf strftime("%Y-%m-%d\n", localtime $date);