Sign in
apache
/
tomcat55
/
a11a405a670dbf5b13fa033c833f719fbb676826
/
.
/
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]"
;