Sign in
apache
/
tomcat55
/
c757cd52b00b600403776aba5ac85437c5b83823
/
.
/
container
/
tester
/
web
/
WEB-INF
/
cgi
/
getday.pl
blob: e3979e7df372e5eb1577d9903458b278a9c770c3 [
file
] [
log
] [
blame
]
#!/usr/bin/perl
@days
=
qw
(
Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
);
print
"Content-type: text/html\n\n"
;
print
"The first day of the week is $days[0]"
;
print
"<P>The third day of the week is $days[2]"
;