Timesheet generator

timesheet.pl

###############
# Generate a time sheet entry
###############
#!/usr/bin/perl

# Formats for month names
@months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
@weekdays = qw( Mon Tue Wed Thurs Fri Sat Sun );

# get todays date
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();

# try to open the file
open(DATA, ">>timesheet.csv") || die "Could not open the file";
# append a recrod
print DATA "$weekdays[$wday] $months[$mon] $mday,07:00,15:00,1hr\n";
# close the file and clear the buffer
close(DATA) || die "Could not close the file";