line  8 - open (DATA, $file);
line  9 - $num = ;
line 10 - close (DATA);