my $file = 'c:/file.cmd';
open F, $file or die "Can't read $file, perl says $!\n";
while(my $line = <F>){
    # parse the line to get data
}
close F;