太腿スヌーパー

#!/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;