FYI: you need to add: my $buf; to line 52 ( I was tired when I posted and I can't edit the node because ) to rid the warning...