################################################################################
# 以下程式碼建構一個讓使用者輸入順序的表單
Navigation Order
################################################################################
# 以下程式碼美化上面表單
body { font: 100% serif; }
fieldset { background: #555555; padding: 1em; }
form { width: 50%; margin: 0 auto; }
input[type='text'] { width: 2em; text-align: center; position: absolute; left: 40%; }
legend { border: 1px #513939 solid; background: #FAFAFA; }
label { position: absolute; margin-left: -999em; }
ol { list-style: none; position: relative; }
ol li { border: 1px #FFF solid; background: #FAFAFA; padding: 0.7em; }
ol li:hover { border: 1px #513939 solid; }
################################################################################
# 以下程式碼為上面表單增加動態效果
################################################################################
# 以下程式碼為三欄式排版
Navigation Order
################################################################################
# 以下程式碼利用成大計中來進行認證
#!/usr/bin/perl -w
use strict;
use Net::POP3; # 我們使用 POP3 協定來認證
my $pop = Net::POP3->new('mail.ncku.edu.tw'); # 連到計中郵件伺服器
print $pop->login( $id, $pw ) ? "ok\n" : "no\n"; # 認證
# vi:nowrap:sw=2:ts=2