my $basedir = 'D:\WWWRoot\hamidapharmacom\www';