You have a small but significant typo in your code.

while ( my $line <$datfh> ) {
[download]

Should be

while ( my $line =  <$datfh> ) {
[download]

Cheers,

JohnGG