SinFP是一种新的识别对方计算机操作系统类型的工具

				# For shutting up Test::Harness.				# Has to work on 5.004 which doesn't have Tie::StdHandle.				package Dev::Null;								sub WRITE  {}				sub PRINT  {}				sub PRINTF {}				sub TIEHANDLE {				    my $class = shift;				    my $fh    = do { local *HANDLE;  \*HANDLE };				    return bless $fh, $class;				}				sub READ {}				sub READLINE {}				sub GETC {}								1;