Help for this page
open(WTMP, '<:raw', './wtmp') || die "Unable to open wtmp file: $!\n";
open(WTMP, './wtmp') || die "Unable to open wtmp file: $!\n"; binmode( WTMP, ':raw' )