Free Perl Code Example - datetime unix to date.pm

package shazam;
#-----------------------------------------------------------------------------#
# Version: 1.0
# Copyright: Bryant H. McGill - 11c Lower Dorset Street, Dublin 1, Ireland
# Web Address: http://www.bryantmcgill.com/Shazam_Perl_Module/
# Use Terms: Free for non-commercial use, commercial use with notification.
#
# Legal: This code is provided "as is" without warranty of any kind.
# The entire risk of use remains with the recipient.
# In no event shall Bryant McGill be liable for any direct,
# consequential, incidental, special, punitive or other damages.
#-----------------------------------------------------------------------------#
# Decide what to do with this!
#-----------------------------------------------------------------------------#
sub datetime_unix_to_date {
  my $time = shift;
  my ($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $tz) = localtime $time;
  my @months = qw!01 02 03 04 05 06 07 08 09 10 11 12!;
  return "$months[$mon]/$day/$year";
}
1;