#$slotnumber=0;
$dpdrivloc = "Trinity";

open(DPSLOTFILE, "< c:\\test.txt") or die "Can't open test.txt: $!";

while (<DPSLOTFILE>) {
	if (/$dpdrivloc:\s*(\d+)/) {
	print "Slot for today is: $1\n";
}
}

	#system("c:\\ipbat.bat");

close DPSLOTFILE;