#!/usr/local/bin/perl require 'jcode.pl'; print <<"EOF"; Content-type: text/html
EOF system("tail -n 50 snoop.dat"); #$a =~ s/\r\n\n/\n/g; #改行コード処理 #$a =~ s/\r\n/\n/g; #$a =~ s/\n//g; print "test2"; print $a;