perl输出文件a的内容

#!/usr/bin/perl

#author: zhengsenlin 
#date: 2013-01-30 
#desc: test program five

use strict;
use warnings;

@ARGV = qw(a);
while (<>) {
    print; 
}