my $tempDate = getDate();
my $outfile = $tempDate . ".zip";
sub getDate {
    my $date;
    my($day, $mon, $year) = (localtime)[(3,4,5)];
    $date = $mon . $day . $year;
    return $date;
}