#!/usr/bin/perl -w 
use strict;  
use warnings; 
DIR=C:\files
C:\files\data.txt
C:\files\scripts\datascript.pl

opendir(DIR, "$dir") || die "Error in opening dir $dir $!";