### 1 ###

print "hello\n";

### 2 ###

use strict;
my ($x);

foreach $x (@ARGV) {
    $sum += $x;
}

print "$sum\n";

### 3 ###
while (<>) {
    printf "Line $.: $_", %2d;
}

### 4 ###
# 這一題是下指令 (bash 語法)
last | sed 's/ .*//' | sort | uniq -c | sort -n

### 5 ###
# 這一題是你自己從零寫起的一個
# 短短 perl 程式, 用到 hash

### end ###
以上每一個段落都必須是一個完整的 bash 指令
或是一個完整的 perl 程式。
以下可以隨便寫中英文不相關的東東。 寒假快樂!