Select Code to Download

#!C:/Perl/bin/perl
#
...
    print "\n";
    return;
}

Value of array '@currtime' is:
0 = '33'
...
6 = '3'
7 = '331'
8 = '0'