#!/usr/bin/perl

use IO::File;

my $file = shift;
my $ft = IO::File->new($file);
my $line = <$ft>;

print $line;

--

sclin by 淳

創作者介紹
創作者 sclin0323 的頭像
sclin0323

James Lin's weblog

sclin0323 發表在 痞客邦 留言(0) 人氣()