Select Code to Download

if (($user)&&($passcheck)) {
        # create a MD5 hash for session management
...

        print $q->header(-cookie=>[$cookie]); # cookie set

sub get_timestamp {

    (my $year, my $month, my $day, my $hour, my $min, my $sec) = Today
+_and_Now();
...
    return ($now_ts, $expiration);
}