> #!/usr/bin/perl
snip
> }

文字列ぐらいまとめてからprintしろよ・・・

参考：2000/03/04(土)00時44分08秒