James Lin's weblog

#!/usr/bin/perl

use IO::File;

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

@a = split(' ',$line);


print $a[0];