perl如何往一个文件中追加一个字段，谢谢

有一个文件：
la123456       10.34.104.74                                                0     4    23
la876636       10.34.104.74                                                0     4    23

。。。。。。

请问：
如何能让这个文件变成：
la123456       10.34.104.74                                                0     4    23   2008-1-1
la876636       10.34.104.74                                                0     4    23   2008-1-1

。。。。。。

即：在原来文件的基础上，如何在每行的最后增加一列时间，谢谢指教！

man awk

perldoc -f print

open FH_1, "1.txt";
open FH_2, ">2.txt";
my $string = "  2008-1-1";
foreach (<FH_1>){
chomp;
print FH_2 $_, $string,"\n";
}

close FH_1;
close FH_2;

谢谢楼上的老师们，我明白了。