my $file = 'C:\StudyPerl\Projects\tab_file.txt';
open(DAT, $file) or die "Could not open the file '$file': $!";