P0f... in Perl