#!/usr/bin/perl -w
use strict;
system ("c:\\Perl\\DataPro\\convert.bat");
open(DPSLOTFILE, "< c:\\Perl\\DataPro\\newreport.txt") or die "Can't open file: $!";
open(OUTFILE, "> c:\\Perl\\DataPro\\output.txt") or die "Can't open file: $!";
while ( <DPSLOTFILE> ) {
	my $dpdrivloc = "MSL6000 Trinity";
	if ( /\Q$dpdrivloc\E:\s*(\d+)/ ) {
	print OUTFILE "$1";
	}
}
close OUTFILE;
close DPSLOTFILE;
open (OUTFILE, "< c:\\Perl\\DataPro\\output.txt") or die "Can't open file: $!";
my $slotnumber = <OUTFILE>;
print "$slotnumber";
system("c:\\Perl\\DataPro\\omnimm -eject \"MSL6000 Trinity\" $slotnumber -location \"blahblahblah\"");
close OUTFILE;