use Date::Manip;
Date_Init("ConvTZ=IGNORE","TZ=GMT");

my $date = UnixDate( $head->get('date') , '%Y_%m_%Q-%H%M%S');
print $date;