use strict;
use Config;
my $datafile = "";
if ( $Config{"perlpath"} =~ m/^c:/i ) {
   $datafile = 'c:\work\perl\data';
} else {
   $datafile = '/usr/svsingh/data';
}